Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1894.00 1757.00 3582.00 5321.00 5561.00 5907.00 4944.00 4966.00 3258.00 1964.00 1743.00 1262.00 2086.00 1793.00 3548.00 5672.00 6084.00 4914.00 4990.00 5139.00 3218.00 2179.00 2238.00 1442.00 2205.00 2025.00 3531.00 4977.00 7998.00 4880.00 5231.00 5202.00 3303.00 2683.00 2202.00 1376.00 2422.00 1997.00 3163.00 5964.00 5657.00 6415.00 6208.00 4500.00 2939.00 2702.00 2090.00 1504.00 2549.00 1931.00 3013.00 6204.00 5788.00 5611.00 5594.00 4647.00 3490.00 2487.00 1992.00 1507.00 2306.00 2002.00 3075.00 5331.00 5589.00 5813.00 4876.00 4665.00 3601.00 2192.00 2111.00 1580.00 2288.00 1993.00 3228.00 5000.00 5480.00 5770.00 4962.00 4685.00 3607.00 2222.00 2467.00 1594.00 2228.00 1910.00 3157.00 4809.00 6249.00 4607.00 4975.00 4784.00 3028.00 2461.00 2218.00 1351.00 2070.00 1887.00 3024.00 4596.00 6398.00 4459.00 5382.00 4359.00 2687.00 2249.00 2154.00 1169.00 2429.00 1762.00 2846.00 5627.00 5749.00 4502.00 5720.00 4403.00 2867.00 2635.00 2059.00 1511.00 2359.00 1741.00 2917.00 6249.00 5760.00 6250.00 5134.00 4831.00 3695.00 2462.00 2146.00 1579.00
Names of X columns:
A
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation