Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
122302.01 109264.65 103674.75 103890.3 75512.66 83121.3 125096.81 74206.73 88481.63 111598.17 146919.48 150790.85 113780.5 110870.76 118785.32 112820.5 102188.92 97092.73 114067.82 89690.15 89267.9 96198.64 129599.75 169424.7 152510.91 121850.2 144737.64 121381.88 106894.86 94305.06 116800.42 77584.28 100680.88 106634.05 168390.77 211971.89 136163.28 168950.25 89816.88 85406.93 66055.52 73311.68 85674.51 82822.59 94277.63 100991.65 149245.88 208517.17 40733.51 121352.23 104020.11 99566.82 101352.17 106628.41 109696.95 248696.37 105628.33 120449.17 136547.7 140896.42 131509.91 95450.31 133592.64 110332.9 88110.54 64931.25 98446.22 84212.38 77519.55 124806.02 102185.94 151348.79 124378.28 101433.13 126724.22 87461.88 95288.27 129055.33 107753.06 96364.03 71662.75 125666.24 456841.51 167642.32 167154.73 139685.18 119275.2 122746.05 107337.43 112584.89 133183.08 121152.57 119815.6 122858.44 152077.17 157221.96 140435.08 101455.09 104791.29 77226.59 84477.43 66227.74 89076.23 108924.43 83926.11 91764.8 120892.76 129952.42 135865.14 105512.77 96486.62 78064.88 92370.22 98454.46 96703.93 83170.95
Names of X columns:
omzet
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation