Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
131 NA 112 NA 116 NA 110 NA 112 NA 144 NA 116 NA 123 NA 126 NA 116 NA 122 NA 126 NA 109 NA NA 115 155 NA 114 NA 104 NA 153 NA 126 NA 123 NA 90 NA 131 NA 73 NA 121 NA 118 NA 127 NA 127 NA NA 88 101 NA 125 NA 136 NA 123 NA 113 NA 97 NA 105 NA 123 NA NA 113 113 NA 163 NA 133 NA 126 NA 123 NA 128 NA 136 NA 124 NA 98 NA 91 NA 117 NA 120 NA 109 NA 109 NA 103 NA 137 NA 86 NA 136 NA 112 NA 118 NA 114 NA 109 NA 126 NA NA 113 112 NA 128 NA 124 NA 109 NA 130 NA 144 NA 122 NA 132 NA 103 NA 137 NA 134 NA 108 NA NA 134 147 NA 104 NA 101 NA 134 NA 154 NA NA 92 129 NA 97 NA 120 NA 121 NA 120 NA 148 NA 135 NA 101 NA 100 NA 122 NA 85 NA 131 NA 121 NA 127 NA 122 NA 124 NA 121 NA 109 NA 112 NA 146 NA 117 NA 101 NA 125 NA 137 NA 119 NA 113 NA 103 NA 123 NA 117 NA 131 NA 130 NA 124 NA 101 NA NA 111 144 NA 96 NA 119 NA 121 NA 107 NA 100 NA 108 NA 130 NA 105 NA 96 NA NA 146 129 NA NA 141 111 NA 110 NA NA 129 111 NA 137 NA NA 89 112 NA NA 141 106 NA 131 NA 115 NA 143 NA NA 131 96 NA 126 NA 110 NA 114 NA NA 143 105 NA 122 NA 124 NA 124 NA 117 NA NA 119 128 NA 136 NA 134 NA 134 NA 117 NA 120 NA 119 NA 121 NA NA 114 98 NA 109 NA
Names of X columns:
TW TM
Sample Range:
(leave blank to include all observations)
From:
To:
Color
grey
grey
white
blue
red
black
brown
yellow
Omit all rows with missing values?
no
yes
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
z <- as.data.frame(t(y)) bitmap(file='test1.png') (r<-boxplot(z ,xlab=xlab,ylab=ylab,main=main,notch=TRUE,col=par1)) dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,hyperlink('http://www.xycoon.com/overview.htm','Boxplot statistics','Boxplot overview'),6,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Variable',1,TRUE) a<-table.element(a,hyperlink('http://www.xycoon.com/lower_whisker.htm','lower whisker','definition of lower whisker'),1,TRUE) a<-table.element(a,hyperlink('http://www.xycoon.com/lower_hinge.htm','lower hinge','definition of lower hinge'),1,TRUE) a<-table.element(a,hyperlink('http://www.xycoon.com/central_tendency.htm','median','definitions about measures of central tendency'),1,TRUE) a<-table.element(a,hyperlink('http://www.xycoon.com/upper_hinge.htm','upper hinge','definition of upper hinge'),1,TRUE) a<-table.element(a,hyperlink('http://www.xycoon.com/upper_whisker.htm','upper whisker','definition of upper whisker'),1,TRUE) a<-table.row.end(a) for (i in 1:length(y[,1])) { a<-table.row.start(a) a<-table.element(a,dimnames(t(x))[[2]][i],1,TRUE) for (j in 1:5) { a<-table.element(a,r$stats[j,i]) } a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable.tab') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Boxplot Notches',4,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Variable',1,TRUE) a<-table.element(a,'lower bound',1,TRUE) a<-table.element(a,'median',1,TRUE) a<-table.element(a,'upper bound',1,TRUE) a<-table.row.end(a) for (i in 1:length(y[,1])) { a<-table.row.start(a) a<-table.element(a,dimnames(t(x))[[2]][i],1,TRUE) a<-table.element(a,r$conf[1,i]) a<-table.element(a,r$stats[3,i]) a<-table.element(a,r$conf[2,i]) a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable1.tab')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation