Wessa.net

Send output to:

Data X:
20 25 15 15 25 25 25 21 30 25 20 40 13 30 25 20 25 20 25 20 20 15 15 12 20 5 20 15 25 22 20 22 25 20 20 35 30 25 20 20 20 25 25 15 20 35 25 25 30 23 10 22 25 25 22 30 20 25 25 22 25 25 25 22 25 12 18 20 20 22 30 25 22 20 50 30 25 20 30 22 25 30 22 25 22 22 25 25 25 20 22 15 20 30 20 25 30 35 22 12 30 15 10 30 9 25 20 20 35 25 35 30 12 25 15 25 25 20 20 6 15 40 20 40 25 25 20 15 15 22 24 22 20 25 25 25 35 40 20 22 22 20 25 25 18 25 20 25 30 20 22 35 22 25 25 25 25 22 23 35 15 25 18 22 25 25 28 30 20 25 25 30 22 30 10 10 25 20 22 25 25 15 22 25 25 28 22 30 25 20 25 25 20 30 20 30 50 19 20 28 20 25 35 25 25 15 16 20 20 25 30 20 25 25 25 20 20 25 25 30 22 20 25 25 18 18 20 25 25 30 25 20 25 20 20 20 22 18 22 20 15 25 25 20 25 15 22 25 25 15 12 25 30 22 15 22 25 12 18 30 25 25 40 24 25 15 25 20 25 25 25 20 30 20 25 30 22 25 25 25 50 19 50 25 35 20 20 20 20 20 25 25 25 20 20 20 20 25 18 25 22 22 30 30 8 20 25 30 50 22 20 10 25 25 25 25 18 25 20 25 30 18 20 25 22 22 20 20 25 20 20 20 20 25 20 10 20 25 30 25 50 30 30 50 15 25 25 22 20 22 30 25 18 22 22 30 40 25 20 10 20 9 15 20 15 20 30 12 15 12 20 15 12 25 20 25 25 25 30 20 25 15 15 22 10 15 10 20 25 20 20 38 20 20 20 40 25 25 30 25 10 20 25 12 15 25 20 22 22 20 25 25 25 15 40 20 20 16 25 15 20 25 20 30 50 20 25 20 30 30 25 25 12 25 25 25 20 20 20 15 20 25 15 25 50 30 20 20 25 12 15 20 20 35 22 15 18 30 22 12 12 20 20 15 25 15 20 20 25 18 30 20 25 25 25 20 20 25 20 22 15 15 22 20 10 25 20 20 15 12 20 5 20 15 15 25 25 25 15 25 22 25 20 18 22 25 35 25 25 25 35 30 22 30 50 15 25 24 20 25 25 25 12 15 22 25 25 25 25 15 20 20 15 35 30 20 22 65 20 25 22 20 25 25 20 25 15 20 12 15 10 25 15 30 35 25 25 25 25 25 40 40 25 25 20 25 25 22 25 30 25 25 30 25 25 30 25 25 20 22 22 20 25 22 25 22 40 25 25 25 22 20 35 20 35 25 22 25 25 25 25 25 40 25 30 25 20 25 25 30 22 22 20 15 15 25 25 20 20 15 25 15 20 22 25 15 15 18 5 15 25 18 40 25 25 20 30 20 25 25 25 22 22 25 25 30 25 25 25 25 20 20 25 25 25 25 20 30 25 22 30 20 20 30 25 25 30 20 25 25 24 25 30 18 15 22 22 25 22 22 25 15 20 22 18 35 20 20 20 25 25 30 15 25 22 26 25 20 25 25 25 22 25 25 20 22 30 15 30 25 20 25 25 35 22 20 25 20 20 18 20 22 25 10 20 25 20 20 30 25 20 15 20 25 10 20 25 22 22 25 25 15 25 20 10 25 16 25 35 25 15 25 25 30 25 10 22 20 25 20 20 25 22 18 30 19 25 20 25 20 25 20 22 12 30 12 22 25 25 25 25 30 30 10 22 22 25 20 22 20 25 20 15 25 20 25 20 30 15 40 25 20 22 22 30 20 40 20 25 20 25 20 50 50 25 25 40 30 22 30 20 25 25 30 25 25 20 18 18 28 25 22 15 40 40 12 12 18 12 25 26 18 25 22 15 25 15 15 15 25 15 12 22 20 20 25 20 12 9 15 12 15 25 20 20 15 15 30 21 25 22 22 50 15 25 15 25 22 18 50 20 50 20 20 30 25 20 22 25 50 40 25 25 25 25 30 40 25 30 20
Names of X columns:
Price

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

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
Price	13	20	22	25	30

Boxplot Notches
Variable	lower bound	median	upper bound
Price	21.7366666666667	22	22.2633333333333