Wessa.net

Send output to:


Data:
30 27 9 20 3 15 5 10 23 34 20 17 26 16 17 15 38 16 38 15 5 18 8 33 12 22 23 45 8 45 9 45 21 16 17 31 15 22 14 13 37 23 22 15 43 27 21 36 38 12 1 25 20 11 55 39 24 2 3 16 45 24 12 34 43 18 18 34 29 15 6 58 37 13 12 9 20 29 13 36 33 23 22 1 3 15 13 44 11 20 28 14 7 8 9 33 4 22 7 14 24 13 30 19 34 9 27


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')

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