Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
10284.5 9904.642857 12792 13710.15385 12823.61538 13747.69231 13845.66667 14517 15335.63636 15185.81818 11188.5 11422.28571 13633.25 13819.66667 12298.46667 12749 15353.63636 16217 12696.15385 13238 12213.93333 12391 13683.72727 14780.09091 11214.14286 10815.42857 13950.23077 14770.84615 11179.13333 11831 11801.875 11931.3125 11188.82353 10611.94118 16456.27273 15923.18182 11110.0625 11094.875 16530.69231 16209.53846 10038.41176 10100 11681.25 12149.6875 11148.88235 11644.35294 8631 9249.947368 9386.444444 8980.777778 9764.736842 10244.52632 12043.75 12457.5625 12948.06667 13307.46667 10987.125 10839.625 11648.3125 11827.625 10633.35294 10925.94118 10219.3 10675.3 9037.6 9297.3 10296.31579 10433.21053 11705.41176 12261.41176 10681.94444 10911.22222 9362.947368 9334.421053 11306.35294 11655.05882 10984.45 11080 10062.61905 9840.142857 8118.583333 7448.916667 8867.48 8362.6 8346.72 8465.64 8529.307692 8220.923077 10697.18182 10432.86364 8591.84 8537.4 8695.607143 8535.464286 8125.571429 7997.464286 7009.758621 6301.413793 7883.466667 7595.566667 7527.645161 7200.483871 6763.758621 6152.482759 6682.333333 6064.259259 7855.681818 7269.909091 6738.88 6578.44 7895.434783 7708.26087 6361.884615 6401.153846 6935.956522 7042.043478 8344.454545 8296.409091 9107.944444 9613.333333
Names of X columns:
Invoer/inflatie Uitvoer/inflatie
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