Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
100 100 89.49361346 91.48509543 83.10125404 86.12816202 101.9438822 99.81344847 84.32214234 88.87895933 83.74805146 77.44960595 96.72646053 99.54926022 96.96551965 99.82182653 96.64037598 97.30840767 98.12009958 93.30090092 91.10944371 89.31685275 95.15774412 92.62562905 107.3014821 106.8119237 98.23526675 99.63583353 96.00172169 96.12095689 106.5639469 103.8125771 87.55089458 90.80758941 91.3182569 84.57151794 105.4844001 107.2509342 97.53553896 99.12086194 109.8334148 106.6253721 110.636095 100.7618452 105.2901282 97.83064025 103.3951048 99.15046442 124.9965101 117.6972615 99.26071985 95.9008931 108.7108257 108.5769022 110.2411531 110.5647373 95.38458854 98.16241154 98.2736558 90.28982512 107.913962 108.7170952 112.0844094 111.3282581 112.9691026 111.4907925 102.2509946 96.86939717 108.4042949 105.6987584 105.1435518 103.7433185 118.8815988 119.2511129 105.134827 103.8578187 113.7886508 110.7194522 115.744166 116.4237959 111.8372071 109.6978871 103.4736279 99.05886427 111.7982364 110.6663911 127.7826249 123.7719156 122.911868 115.4178698 113.3326354 99.85198756 128.9447663 116.7706477 121.3722342 118.2094404 128.9883902 119.3840448 136.8849026 128.1972084 124.9365999 119.2114567 141.6189712 133.4865588 132.3352179 125.0727495 118.2400363 102.0677059 137.5631093 127.2722703 135.7326493 124.6739537 114.0905284 99.65538235 104.9434634 91.45214171 100.5240688 89.33137473 97.99213606 91.85763996 105.62516 99.02311787
Names of X columns:
Invoer Uitvoer
Sample Range:
(leave blank to include all observations)
From:
To:
Color
0.01
grey
white
blue
red
black
brown
yellow
Omit all rows with missing values?
0.99
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