Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
139 13.9 2849.27 -2.3 135 17.8 2921.44 -4.8 130 17.9 2981.85 2.3 127 17.4 3080.58 -5.2 122 16.7 3106.22 -10 117 16 3119.31 -17.1 112 16.6 3061.26 -14.4 113 19.1 3097.31 -3.9 149 17.8 3161.69 3.7 157 17.2 3257.16 6.5 157 18.6 3277.01 0.9 147 16.3 3295.32 -4.1 137 15.1 3363.99 -7 132 19.2 3494.17 -12.2 125 17.7 3667.03 -2.5 123 19.1 3813.06 4.4 117 18 3917.96 13.7 114 17.5 3895.51 12.3 111 17.8 3801.06 13.4 112 21.1 3570.12 2.2 144 17.2 3701.61 1.7 150 19.4 3862.27 -7.2 149 19.8 3970.1 -4.8 134 17.6 4138.52 -2.9 123 16.2 4199.75 -2.4 116 19.5 4290.89 -2.5 117 19.9 4443.91 -5.3 111 20 4502.64 -7.1 105 17.3 4356.98 -8 102 18.9 4591.27 -8.9 95 18.6 4696.96 -7.7 93 21.4 4621.4 -1.1 124 18.6 4562.84 4 130 19.8 4202.52 9.6 124 20.8 4296.49 10.9 115 19.6 4435.23 13 106 17.7 4105.18 14.9 105 19.8 4116.68 20.1 105 22.2 3844.49 10.8 101 20.7 3720.98 11 95 17.9 3674.4 3.8 93 20.9 3857.62 10.8 84 21.2 3801.06 7.6 87 21.4 3504.37 10.2 116 23 3032.6 2.2 120 21.3 3047.03 -0.1 117 23.9 2962.34 -1.7 109 22.4 2197.82 -4.8 105 18.3 2014.45 -9.9 107 22.8 1862.83 -13.5 109 22.3 1905.41 -18.1 109 17.8 1810.99 -18 108 16.4 1670.07 -15.7 107 16 1864.44 -15.2 99 16.4 2052.02 -15.1 103 17.7 2029.6 -17.9 131 16.6 2070.83 -14.5 137 16.2 2293.41 -9.4 135 18.3 2443.27 -4.2 124 17.6 2513.17 -2.2
Names of X columns:
WLH BH AGM EA
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