Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
66.67 66.33 64.33 64.00 63.33 61.33 64.67 63.00 60.67 63.67 60.67 61.67 62.33 60.33 59.67 60.33 59.33 58.67 58.67 59.33 57.33 59.33 56.00 53.67 58.67 49.33 71.33 70.33 69.00 66.00 66.00 63.33 65.33 64.33 64.00 61.67 63.67 64.67 61.67 62.00 61.33 63.67 61.33 62.33 59.67 59.33 61.67 58.67 58.00 56.67 59.67 58.00 57.00 57.67 58.67 55.33 56.00 55.67 53.33 53.67 51.00 47.00 4.33 70.00 68.67 67.67 66.00 65.67 65.67 63.67 63.67 64.00 62.00 62.00 61.67 61.67 63.33 61.00 62.33 60.33 60.33 60.67 57.67 58.33 58.00 57.33 56.67 58.00 55.33 55.67 54.67 56.33 55.00 55.00 54.67 54.33 49.00 48.33 49.67 43.67 6.33 3.00 66.67 67.33 65.33 66.00 65.67 66.67 65.67 65.00 64.67 66.67 63.67 63.33 63.67 63.33 63.67 63.00 61.67 61.33 60.67 60.00 61.67 61.33 58.67 60.33 59.67 59.33 59.67 61.00 61.00 60.00 60.00 58.67 58.33 58.00 56.33 54.67 55.33 54.00 52.67 44.00 65.67 65.00 66.33 64.00 62.33 61.33 63.00 63.67 62.00 61.33 64.67 62.67 64.00 61.00 60.67 59.67 60.33 56.67 56.67 54.33 51.00 51.00 47.00 68.00 65.00 64.00 64.00 64.00 62.00 61.00 60.00 60.00 62.00 60.00 59.00 61.00 60.00 60.00 58.00 58.00 60.00 58.00 59.00 56.00 54.00 51.00 47.00
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