Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
100.00 100.00 100.00 100 105.63 112.22 116.76 101.9299478 105.63 114.44 113.45 108.8496656 107.04 113.33 84.46 113.0912755 108.45 106.67 100.67 108.9595994 108.45 102.22 105.66 64.04250771 111.27 103.33 96.47 178.8011116 114.08 104.44 91.11 167.8168993 115.49 104.44 116.29 200.1404709 115.49 102.22 116.27 157.4800745 115.49 100.00 102.25 156.1822457 111.27 100.00 123.80 142.428314 102.82 100.00 99.49 109.0298348 97.18 108.89 108.93 101.5451797 94.37 111.11 113.17 107.4693865 94.37 108.89 93.71 127.2421901 97.18 103.33 95.98 106.467768 98.59 100.00 101.66 64.76929184 100.00 100.00 107.51 171.3927993 101.41 101.11 84.11 150.3374355 100.00 101.11 93.83 182.3770116 97.18 101.11 96.08 146.8928451 98.59 102.22 85.60 144.9659511 95.77 97.78 103.79 154.2034385 90.14 92.22 85.31 122.3287629 94.37 93.33 83.61 104.2813082 92.96 90.00 103.53 112.5599292 90.14 85.56 87.24 141.5580053 88.73 87.78 92.88 111.6957279 87.32 87.78 77.28 72.89828076 91.55 88.89 112.11 174.9045714 95.77 87.78 86.16 172.1959263 95.77 84.44 77.70 176.0680368 90.14 78.89 89.15 190.2464348 85.92 75.56 97.91 149.4152136 81.69 72.22 89.45 156.2524811 85.92 76.67 92.70 121.0370416 101.41 91.11 83.30 101.4230311 102.82 96.67 97.26 116.4289859 97.18 92.22 79.41 132.1983693 85.92 87.78 76.95 93.44367423 81.69 83.33 89.37 67.04736312 87.32 86.67 81.60 146.6790851 100.00 92.22 83.18 140.9228326 108.45 93.33 97.14 154.9332763 111.27 91.11 64.17 146.926436 108.45 85.56 72.73 117.2321129 104.23 80.00 79.18 134.7054692 105.63 81.11 84.76 110.8101505 112.68 90.00 78.37 92.62833237 114.08 94.44 84.95 92.53061349
Names of X columns:
WM WV Bouwv Inspw
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