Wessa.net

Send output to:

Data X:
2953 2635 2404 2413 2136 1565 1451 2037 2477 2785 2994 2681 3098 2708 2517 2445 2087 1801 1216 2173 2286 3121 3458 3511 3524 2767 2744 2603 2527 1846 1066 2327 3066 3048 3806 4042 3583 3438 2957 2885 2744 1837 1447 2504 3248 3098 4318 3561 3316 3379 2717 2354 2445 1542 1606 2590 3588 3202 4704 4005 3810 3488 2781 2944 2817 1960 1937 2903 3357 3552 4581 3905 4581 4037 3345 3175 2808 2050 1719 3143 3756 4776 4540 4309 4563 3506 3665 3361 3094 2440 1633 2935 4159 4159 4894 4921 4577 4155 3851 3429 3370 2726
Names of X columns:
Productie chocolade

Sample Range: (leave blank to include all observations)
From:
To:

Color


Omit all rows with missing values?


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')

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
R Engine error message	Error in array(list(2953, 2635, 2404, 2413, 2136, 1565, 1451, 2037, 2477, : length of 'dimnames' [1] not equal to array extent Execution halted