Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
100 100 100 100 108 109 117 111 125 173 125 132 109 91 115 108 92 124 120 105 126 130 121 125 63 82 63 66 51 82 53 56 129 196 113 134 115 116 118 116 96 146 123 111 101 102 104 102 106 153 100 111 93 119 110 102 120 153 109 122 96 137 95 101 99 147 131 115 129 152 142 136 62 84 67 67 56 76 55 59 119 161 142 131 92 129 134 110 90 104 103 96 105 144 95 108 102 171 123 118 99 140 118 110 107 120 108 109 90 130 87 95 90 247 103 116 108 154 114 117 62 38 72 62 53 57 51 53 97 172 115 113 96 163 125 114 103 130 97 105 88 163 107 104 100 110 103 102 95 133 103 103 109 156 104 115 92 157 103 104 96 127 97 101 100 167 124 117 62 89 51 63 64 53 43 55 110 187 129 126 119 202 136 136 93 137 107 104 84 151 108 100 101 128 116 109 92 140 91 98 91 203 115 114 110 160 99 114 85 161 102 100 120 210 166 146 74 154 71 85 59 70 47 57 121 269 137 146 124 176 127 132 100 156 116 113 121 210 132 137
Names of X columns:
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation