Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
159 158 155 163 158 165 160 165 165 171 170 168 165 168 160 153 165 161 170 165 160 159 158 NA 173 158 163 NA 169 160 163 161 155 171 163 159 161 NA 150 158 163 175 163 170 165 160 160 161 160 165 153 154 163 160 160 173 160 150 164 165 163 171 165 163 175 163 NA 154 153 169 155 163 158 148 160 168 NA 160 163 176 171 155 165 158 170 165 160 152 NA 160 NA NA 165 160 160 158 171 155 168 165 155 NA NA NA 160 160 168 166 155 165 158 161
Sample Range:
(leave blank to include all observations)
From:
To:
Number of Bins
(?)
Chart options
Title:
Label x-axis:
R Code
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation