Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
236 142 61 127 101 77 144 142 240 138 60 111 131 99 119 30 112 158 103 156 86 203 175 121 137 182 141 150 104 111 70 89 137 120 124 131 34 23 115 75 144 45 126 124 30 132 88 43 101 68 112 168 171 73 66 68 90 135 75 178 155 124 167 10 138 154 82 104 75 119 148 73 78 126 138 145 145 123 78 16 67 138 87 124 195 97 114 93 67 89 102 43 132 89 58 81 136 148 110 41 72 60 29 159 70 96 200 217 35 148 46 113 97 75 168 87 83 41 73 70 56 78 119 31 5 98 0
Sample Range:
(leave blank to include all observations)
From:
To:
Number of Bins
(?)
Chart options
Title:
Label x-axis:
R Code
par1 <- '20' x <- x[!is.na(x)] bitmap(file='test1.png') par1 <- as.numeric(par1) myhist<-hist(x, breaks=par1, col=2, xlab=xlab, main=main) dev.off() bitmap(file='test2.png') qqnorm(x) qqline(x, col=2) dev.off() bitmap(file='test3.png') plot(density(x), xlab=xlab, main=main) 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,signif(mean(x), 6)) 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,signif(sd(x), 6)) 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