Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
79 82 82 89 106 106 94 94 101 97 99 95 104 102 94 98 97 102 96 90 93 91 87 99 99 101 97 100 116 117 109 110 104 102 107 104 99 101 110 104 109 109 118 117 93 89 107 99 91 95 95 105 111 114 119 106 105 103 107 100 114 120 112 114 103 116 118 110 105 109 105 116 106 111 109 106 125 132 130 128 103 106 105 105 114 115 125 118 123 119 113 118 102 104 118 106 101 107 105 114 121 123 116 110 120 120 124 127 119 124 124 129 102 106 113 111 118 116 116 129 114 115 123 115 130 133 144 129 113 112 112 122 119 118 121 132 129 126 126 128 116 116 140 134 110 112 117 125 124 124 133 127 133 136 138 148 129 134 135 138 105 118 117 119 127 128 118 144 127 130 121 109 128 133 125 132 133 137 143 145 122 122 129 138 141 145 137 146 127 128 146 157 110 115 110 142 136 136 142 162 132 134 132 153 110 117 106 125 97 102 106 124 96 95 89 120 98 98 97 107 106 109 108 111 98 99 99 97 94 94 98 95 107 109 110 102 98 98 109 94
Names of X columns:
uitintraeu inintraeu uitextraeu inextraeu
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