Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
19.38 20.07 21.30 22.38 18.21 21.11 20.57 22.15 21.63 22.68 21.22 22.05 21.55 21.55 20.83 18.96 20.91 24.61 23.53 22.20 22.46 21.46 22.72 23.60 25.34 22.86 24.22 24.51 21.60 20.90 23.39 23.18 24.57 21.91 23.18 22.53 23.84 25.26 26.81 22.84 24.77 18.75 27.55 23.15 27.92 25.39 24.82 24.82 27.92 23.77 28.28 25.14 25.47 27.02 25.25 24.69 24.69 25.56 26.78 26.78 25.34 23.48 27.43 25.38 28.08 25.68 25.68 28.73 25.42 26.00 26.87 26.59 28.72 26.31 28.07 26.88 28.63 30.86 29.51 30.49 31.26 39.14
Sample Range:
(leave blank to include all observations)
From:
To:
Number of Bins
(?)
Chart options
Title:
Label x-axis:
R Code
par1 <- '10' 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