Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
2174.56 17704 2196.72 15548 2350.44 28029 2440.25 29383 2408.64 36438 2472.81 32034 2407.6 22679 2454.62 24319 2448.05 18004 2497.84 17537 2645.64 20366 2756.76 22782 2849.27 19169 2921.44 13807 2981.85 29743 3080.58 25591 3106.22 29096 3119.31 26482 3061.26 22405 3097.31 27044 3161.69 17970 3257.16 18730 3277.01 19684 3295.32 19785 3363.99 18479 3494.17 10698 3667.03 31956 3813.06 29506 3917.96 34506 3895.51 27165 3801.06 26736 3570.12 23691 3701.61 18157 3862.27 17328 3970.1 18205 4138.52 20995 4199.75 17382 4290.89 9367 4443.91 31124 4502.64 26551 4356.98 30651 4591.27 25859 4696.96 25100 4621.4 25778 4562.84 20418 4202.52 18688 4296.49 20424 4435.23 24776 4105.18 19814 4116.68 12738 3844.49 31566 3720.98 30111 3674.4 30019 3857.62 31934 3801.06 25826 3504.37 26835 3032.6 20205 3047.03 17789 2962.34 20520 2197.82 22518 2014.45 15572
Names of X columns:
Bel_20 Inschrijvingen_nieuwe_persoonswagens
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