Wessa.net

Send output to:


Data:
111 102 108 109 118 79 88 102 105 92 131 104 83 84 85 110 121 120 100 94 89 93 128 84 127 106 129 82 106 109 91 111 105 118 103 101 101 95 108 95 98 82 100 100 107 95 97 93 81 89 111 95 106 83 81 115 112 92 85 95 115 91 107 102 86 96 114 105 82 120 88 90 85 106 109 75 91 96 108 86 98 99 95 88 111 103 107 118


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