Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
14.69 11.54 27.01 20.15 25.47 33.56 11.78 34.78 47.24 21.47 29.21 71.23 17.54 43.9 59.14 21.47 33.47 40.99 18.55 55.10 17.54 14.33 48.13 28.45 8.78 33.25 39.09 17.66 25.33 24.69 19.64 26.98 21.47 13.25 88.74 39.81 16.17 36.54 35.66 9.66 11.78 31.21 20.45 29.11 30.63 24.21 32.47 26.11 19.65 36.99 29.63 21.33 27.55 44.55 14.47 18.55 43.9 16.22 14.33 33.47 16.66 8.78 55.10 19.87 40.55 48.13 14.55 22.63 33.25 19.41 20.47 25.33 20.63 60.03 26.98 9.12 50.14 88.74 8.36 30.63 36.54 19.36 36.99 11.78 25.78 27.55 29.11 14.66 18.55 32.47 27.55 14.33 55.17 22.63 21.63 42.33 30.33 36.12 22.87 22.22 23.69 41.36 11.99 54.12 27.69 9.47 45.16 20.47 10.33 69.41 60.03 15.36 41.96 50.14 14.99 13.25 30.63 17.31 26.98 36.99 18.94 88.74 27.55 16.54 36.54 18.55 18.21 11.78 14.33 11.74 29.11 8.78 17.41 32.47 40.55 9.99 55.17 22.63 21.14 17.66 45.77 19.70 19.64 41.36 14.87 44.47 39.44 19.65 50.17 41.66 27.65 21.63 66.47 13.45 36.12 69.48 20.00 23.69 17.66 13.47 33.25 19.64 18.54 25.33 44.47 20.00 26.98 50.17 11.47 14.33 21.63 28.65 8.78 36.12 24.14 17.66 23.69 19.87 19.64 54.12 17.65 13.25 45.16 13.69 16.17 69.41 15.47 9.66 41.96 11.63 20.45 13.25 10.24 24.21 16.17 13.54 19.65 9.66 11.00 21.25 20.45 19.74 33.64 24.21 21.25 25.44 33.64 29.54 60.74 25.44 11.41 71.33 60.74 10.87 55.21 71.33 8.47 66.23 55.21 12.69 19.65 66.23 10.14 23.52 19.65 18.63 25.64 21.33 22.54 19.33 14.47 17.65 20.64 16.22 16.41 18.98 23.56 17.65 15.67 66.87 19.87 20.00 54.22 21.45 11.47 43.98 22.65 28.65 71.33 20.69 24.14 55.21 23.74 19.87 66.23 20.96 17.65 19.65 18.35 30.54 21.33 17.84 28.57 16.66 20.54 29.65 19.87 21.63 31.22 14.55 27.61 32.00 19.41 19.47 19.64 20.63 23.52 41.88 60.03 25.64 45.98 50.14 19.33 34.12 30.63 20.64 30.88 36.99 18.98 25.96 27.55 15.67 20.33 18.55 23.74 26.98 14.33 22.89 27.12 66.47 24.66 21.66 69.48 29.40 27.96 17.66 19.87 28.63 19.64 17.55 29.10 44.47 15.94 34.25 50.17 21.74 39.77 21.63 23.51 41.23 36.12 24.84 14.10 23.69 18.47 19.54 33.25 21.01 8.78 25.33 16.74 24.55 26.98 27.45 34.87 88.74 19.54 31.47 36.54 17.74 21.65 11.78 21.65 19.77 18.55 24.74 9.23 14.33 26.89 7.55 8.78 23.22 22.44 40.55 20.16 16.89 22.63 21.88 47.55 45.77
Names of X columns:
Pre-test Post-test1 Post-test2
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation