Wessa.net

Send output to:


Data:
77 70 76 77 73 71 64 75 101 75 124 66 70 100 73 76 65 69 86 67 80 80 82 85 73 107 64 74 70 58 69 71 76 98 76 66 70 70 56 61 66 68 86 71 87 101 63 90 79 67 83 94 76 66 77 73 89 84 91 83 68 86 58 68 58 95 75 61 64 68 67 82 68 78 70 75 93 86 71 80 91 81


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

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