Wessa.net

Send output to:

Data X:
15.22 15.27 15.31 15.33 15.42 15.49 15.65 15.67 15.69 15.83 15.92 15.99 15.94 15.96 16.03 16.09 16.04 16.23 16.2 16.2 16.26 16.28 16.27 16.29 16.3 16.37 16.39 16.42 16.43 16.37 16.37 16.39 16.48 16.51 16.5 16.54 16.52 16.56 16.61 16.75 16.75 16.79 16.82 16.84 17.14 17.25 17.28 17.3 17.34 17.44 17.48 17.55 17.59 17.66 17.67 17.64 17.68 17.72 17.78 17.83 17.88 18.11 18.16 18.27 18.29 18.35 18.35 18.38 18.41 18.41 18.42 18.43 18.48 18.54 18.65 18.66 18.69 18.72 18.72 18.73 18.84 18.83 18.91 18.91 18.94 18.97 19 19.08 19.18 19.24 19.23 19.25 19.3 19.33 19.35 19.35 19.31 19.47 19.7 19.76 19.9 19.97 20.1 20.26 20.44 20.43 20.57 20.6 20.69 20.93 20.98 21.11 21.14 21.16 21.32 21.32 21.48 21.58 21.74 21.75 21.81 21.89 22.21 22.37 22.47 22.51 22.55 22.61 22.58 22.85 22.93 22.98
Names of X columns:
Gem. Prijs

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	0 seconds
R Server	Big Analytics Cloud Computing Center
R Engine error message	Error in array(list(15.22, 15.27, 15.31, 15.33, 15.42, 15.49, 15.65, 15.67, : length of 'dimnames' [1] not equal to array extent Execution halted