Wessa.net

Send output to:


Data:
56.67 57 57.33 57.33 57.67 57.67 58 58 58 58 58 58 58 58 58.33 58.33 58.67 58.67 58.67 58.67 58.67 58.67 58.67 59 59 59.33 59.33 59.33 59.33 59.33 59.67 59.67 59.67 59.67 59.67 59.67 60 60 60 60 60 60 60 60 60 60.33 60.33 60.33 60.33 60.33 60.33 60.67 60.67 60.67 60.67 60.67 61 61 61 61 61 61 61.33 61.33 61.33 61.33 61.33 61.33 61.33 61.67 61.67 61.67 61.67 61.67 61.67 61.67 61.67 62 62 62 62 62 62 62.33 62.33 62.33 62.33 62.67 63 63 63 63.33 63.33 63.33 63.33 63.33 63.67 63.67 63.67 63.67 63.67 63.67 63.67 63.67 63.67 64 64 64 64 64 64 64 64 64.33 64.33 64.67 64.67 64.67 64.67 65 65 65 65.33 65.33 65.67 65.67 65.67 65.67 65.67 66 66 66 66 66.33 66.33 66.67 66.67 66.67 66.67 67.33 67.67 68 68.67 69 70 70.33 71.33 17.6 36.33 37.93 41.87 47.2 51.53 52.33 52.67 53.87 54.2 54.73 55 55.07 55.47 55.93 56.2 56.33 56.67 57.13 57.47 57.47 57.67 57.67 57.8 57.87 58.07 58.2 58.27 58.27 58.33 58.4 58.8 58.8 58.93 59 59.13 59.13 59.4 59.47 59.53 59.53 59.53 59.6 59.67 59.67 59.73 59.73 59.73 59.8 59.8 59.87 60.13 60.13 60.13 60.33 60.4 60.47 60.73 60.8 60.87 61 61 61.27 61.27 61.33 61.4 61.4 61.47 61.47 61.6 61.6 61.6 61.67 61.8 61.87 61.93 61.93 61.93 62 62.13 62.2 62.4 62.4 62.4 62.4 62.4 62.53 62.6 62.6 62.6 62.6 62.67 62.67 62.8 62.8 62.8 62.87 62.87 62.93 62.93 63 63 63.07 63.13 63.2 63.27 63.33 63.33 63.47 63.53 63.53 63.53 63.6 63.67 63.67 63.67 63.73 63.73 63.73 63.87 64 64.07 64.07 64.07 64.13 64.2 64.2 64.27 64.27 64.4 64.47 64.6 64.6 64.67 64.67 64.67 64.67 64.67 64.67 64.67 64.67 64.73 64.8 64.87 65 65 65.07 65.07 65.2 65.47 65.47 65.6 65.67 65.67 65.8 65.8 65.8 65.93 66 66 66 66 66 66 66 66.07 66.2 66.2 66.27 66.27 66.47 66.53 66.53 66.53 66.6 66.73 66.73 66.73 66.73 66.8 66.87 66.93 67.07

Number of Bins (?)


Chart options


Title:
Label x-axis:

R Code
bitmap(file='test1.png') par1 <- as.numeric(par1) myhist<-hist(x, breaks=par1, col=2) dev.off() bitmap(file='test2.png') qqnorm(x) qqline(x, col=2, xlab=xlab, ylab=ylab) 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,mean(x)) 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,sd(x)) 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