Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
100 100 100 100 103 96 97 99 103 106 113 99 103 118 127 99 100 102 106 97 100 110 77 96 100 106 165 96 99 113 142 96 98 133 162 95 97 126 147 94 96 147 124 94 96 143 150 93 105 106 100 92 106 127 104 92 106 133 109 89 103 121 110 88 100 115 103 87 101 146 59 86 100 146 177 84 99 129 164 84 98 156 192 83 97 125 151 82 97 137 149 81 97 142 132 81 104 118 101 80 105 121 96 81 104 128 101 80 99 135 117 81 95 106 97 81 94 118 52 80 94 121 173 79 92 108 147 78 90 130 170 78 89 107 144 77 86 105 139 77 84 130 143 76 94 110 113 77 95 117 104 77 91 97 113 76 89 141 138 75 86 108 110 77 87 98 71 76 87 113 175 75 86 123 167 75 83 112 167 75 83 116 177 75 79 105 143 75 80 122 149 73 89 100 112 73 90 97 99 73 87 112 114 73 85 102 125 74 85 104 86 76 87 120 64 78 89 80 141 79 90 91 134 82 90 99 154 84 90 105 145 85 88 97 114 90 90 109 126 92 99 103 106 93
Names of X columns:
Werkz Bouwverg persauto hypkred
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