Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
103 NA NA 72 NA 113 NA 125 NA 105 122 NA 127 NA NA 117 NA 91 143 NA NA 116 123 NA 101 NA 119 NA NA 114 108 NA 128 NA 122 NA NA 133 NA 94 NA 128 108 NA 125 NA NA 130 112 NA 117 NA NA 142 NA 128 NA 114 123 NA 89 NA NA 125 NA 110 NA 112 109 NA 108 NA NA 139 NA 116 NA 116 88 NA 134 NA 126 NA 101 NA NA 120 114 NA 116 NA 102 NA NA 87 NA 115 119 NA NA 120 66 NA 126 NA 130 NA NA 126 128 NA NA 134 131 NA 102 NA NA 93 129 NA NA 136 112 NA NA 120 121 NA NA 122 NA 136 118 NA 130 NA NA 114 123 NA 121 NA NA 119 137 NA NA 63 NA 140 114 NA 100 NA NA 101 131 NA NA 131 NA 129 120 NA NA 106 NA 147 99 NA
Names of X columns:
TW TM
Sample Range:
(leave blank to include all observations)
From:
To:
Color
1 2 3 4 5 6 7
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