Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1165010 1160665 1156265 1147162.5 1237238.75 1232481.25 1165010 1120157.5 1124488.75 1124488.75 1129328.75 1138005 1151507.5 1151507.5 1142831.25 1120157.5 1237238.75 1255086.25 1228136.25 1165010 1192015 1151507.5 1169781.25 1178512.5 1187615 1165010 1169781.25 1138005 1237238.75 1268588.75 1241638.75 1192015 1245983.75 1187615 1241638.75 1237238.75 1250755 1201131.25 1255086.25 1250755 1331715 1313441.25 1241638.75 1205462.5 1255086.25 1187615 1237238.75 1245983.75 1264257.5 1223805 1245983.75 1259486.25 1309110 1268588.75 1214633.75 1156265 1210288.75 1061788.75 1133660 1174112.5 1214633.75 1156265 1156265 1156265 1187615 1142831.25 1084036.25 1034838.75 1070533.75 931205 1016578.75 1066188.75 1075305 1025681.25 1030012.5 1016578.75 1061788.75 1030012.5 967381.25 922102.5 998662.5 832383.75 940362.5 989560 989560 931205 877236.25 872905 922102.5 877236.25 791931.25 733136.25 796276.25 647831.25 782760 854562.5 877236.25 827626.25 764926.25 809778.75 827626.25 814110 679126.25 616481.25 661278.75 526350 665678.75 715302.5 755755 688283.75 625157.5 661278.75 679126.25 643431.25 508502.5 449707.5 503676.25 355231.25 517178.75 616481.25
Names of X columns:
A
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