Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
28 11 43 31 55 44 70 109 119 90 133 128 126 135 143 132 138 147 132 141 150 138 142 152 140 150 154 141 150 155 143 153 156 145 156 160 146 156 160 146 157 161 149 158 161 150 161 162 155 163 165 155 163 168 155 164 168 159 165 168 160 166 169 160 167 169 161 167 170 162 167 172 163 168 175 165 170 175 168 170 177 170 170 178 171 172 180 175 172 180 176 173 183 176 176 184 177 177 186 178 178 187 179 179 188 179 180 189 179 180 190 179 183 190 180 184 190 180 185 192 180 185 193 181 185 193 189 188 201 199 196 205 200 198 207 231 198 227
Number of Bins
(?)
Chart options
R Code
bitmap(file='test1.png') par1 <- as.numeric(par1) myhist<-hist(x, breaks=par1, col=2) dev.off() bitmap(file='test2.png') qqnorm(x) qqline(x, col=2) dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Descriptive Statistics',3,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'mean',header=TRUE) a<-table.element(a,mean(x)) a<-table.element(a,hyperlink('http://www.xycoon.com/arithmetic_mean.htm','formula','click to see the formula')) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'standard deviation',header=TRUE) a<-table.element(a,sd(x)) a<-table.element(a,hyperlink('http://www.xycoon.com/unbiased1.htm','formula','click to see the formula')) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.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