Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
139 149 70 86 224 148 119 71 119 158 68 108 176 128 147 64 163 159 120 97 137 105 84 129 148 159 137 153 150 167 81 78 153 165 63 80 94 159 69 99 97 91 86 57 166 121 120 68 59 153 57 55 90 221 103 79 164 188 107 116 162 149 65 101 202 92 107 66 66 156 53 71 104 132 69 64 177 161 136 143 99 105 118 85 139 131 82 69 108 157 65 96 194 111 120 60 159 145 215 95 67 162 24 100 114 187 42 105 32 42 29 41 126 155 66 50 149 125 87 93 120 128 76 54 109 96 75 69 172 99 72 58 156 183 76 136 167 214 123 126 87 74 46 64 118 99 86 36 146 48 79 35 73 50 75 61 65 150 43 70 152 68 55 24 77 158 39 147 112 147 95 84 131 39 23 30 56 100 48 77 121 111 94 46 149 138 62 61 168 131 74 159 85 101 62 57 114 165 80 163 119 114 75 76 142 111 54 94 64 75 51 45 105 82 76 78 "N/A" 121 "N/A" 47 "N/A" 150 "N/A" 97 "N/A" 71 "N/A" 33 "N/A" 165 "N/A" 51 "N/A" 154 "N/A" 118 "N/A" 145 "N/A" 89 "N/A" 132 "N/A" 56 "N/A" 169 "N/A" 60 "N/A" 114 "N/A" 109 "N/A" 89 "N/A" 58 "N/A" 173 "N/A" 92 "N/A" 141 "N/A" 95 "N/A" 165 "N/A" 50 "N/A" 110 "N/A" 80 "N/A" 121 "N/A" 68 "N/A" 110 "N/A" 79 "N/A" 117 "N/A" 57 "N/A" 63 "N/A" 69 "N/A" 42 "N/A" 49 "N/A" 154 "N/A" 100 "N/A" 96 "N/A" 78 "N/A" 49 "N/A" 38 "N/A" 110 "N/A" 42 "N/A" 86 "N/A" 90 "N/A" 88 "N/A" 52 "N/A" 168 "N/A" 64 "N/A" 94 "N/A" 31 "N/A" 48 "N/A" 27 "N/A" 145 "N/A" 105 "N/A" 164 "N/A" 71 "N/A" 126 "N/A" 63 "N/A" 132 "N/A" 47 "N/A" 81 "N/A" 78
Names of X columns:
MeisjesLFM JongensLFM MeisjesH JongensH
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
par1 <- 'grey' z <- na.omit(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