Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
102.0 70.5 108.0 104.7 77.7 108.0 86.0 56.0 108.0 92.1 56.8 108.0 106.9 69.2 108.0 112.6 71.3 108.0 101.7 79.4 108.0 92.0 80.8 108.0 97.4 72.2 108.0 97.0 69.8 108.0 105.4 73.0 108.0 102.7 82.0 108.0 98.1 76.3 108.0 104.5 65.3 108.0 87.4 51.4 108.0 89.9 60.5 108.0 109.8 83.0 108.0 111.7 89.8 108.0 98.6 78.6 108.0 96.9 85.8 108.2 95.1 69.7 112.3 97.0 69.4 111.3 112.7 76.6 111.3 102.9 76.4 115.3 97.4 77.1 117.2 111.4 79.0 118.3 87.4 67.5 118.3 96.8 60.0 118.3 114.1 71.7 119.0 110.3 79.3 120.6 103.9 66.0 122.6 101.6 78.1 122.6 94.6 57.1 127.4 95.9 49.6 125.9 104.7 64.0 121.5 102.8 57.8 118.8 98.1 61.6 121.6 113.9 82.4 122.3 80.9 61.8 122.7 95.7 62.1 120.8 113.2 79.5 120.1 105.9 65.4 120.1 108.8 72.5 120.1 102.3 84.6 120.1 99.0 62.5 128.4 100.7 65.1 129.8 115.5 79.0 129.8 100.7 65.9 128.6 109.9 66.1 128.6 114.6 83.3 133.7 85.4 40.6 130.0 100.5 58.6 125.9 114.8 67.3 129.4 116.5 68.2 129.4 112.9 59.5 130.6 102.0 65.7 130.6 106.0 53.4 130.6 105.3 39.5 130.8 118.8 51.7 129.7 106.1 42.3 125.8 109.3 45.9 126.0 117.2 54.7 125.6 92.5 41.8 125.4 104.2 48.6 124.7 112.5 57.1 126.9 122.4 76.5 128.1 113.3 62.7 131.4 100.0 53.9 134.8 110.7 53.5 141.8 112.8 47.5 148.1 109.8 49.3 149.8 117.3 59.9 149.8 109.1 49.9 147.3 115.9 54.5 150.9 96.0 54.2 153.0 99.8 46.7 152.7 116.8 61.2 152.7 115.7 51.8 152.7 99.4 37.4 152.7 94.3 41.1 153.2 91.0 30.0 145.1 93.2 34.8 134.0 103.1 45.9 127.2 94.1 45.1 123.0 91.8 42.6 124.5 102.7 49.0 123.7 82.6 29.6 123.8 89.1 46.0 123.6
Names of X columns:
Itot Iaudio Price
Sample Range:
(leave blank to include all observations)
From:
To:
Color
blue
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