Wessa.net

Send output to:


Data:
85 60 89 97 98 94 83 69 89 94 90 78 88 102 82 110 90 90 80 68 89 94 81 65 102 86 84 89 92 72 82 94 81 80 91 85 86 103 85 93 82 60 81 94 98 79 83 86 75 86 94 85 90 64 105 96 82 95 99 82 102 77 75 77 77 98 87 73 73 85 76 94 73 60 99 106 94 89 79 112 94 82 75 86 79 82 92 94 84 93 60 82 71 89 110 74 98 96 106 103 87 98 72 98 84 77 85 85 99 90 87 99 89 97 106 82 90 92 95 99 86 90 84 70 92 98 110 92 93 87 91 104 88 92 107 85 93 89 101 94 82 88 73 112 93 77 93 93 87 95 93 74 69 80 82 98 112 101 87 90 72 85 97 107 77 89 103 87 112 95 92 89 86 85 92 78


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	0 seconds
R Server	Big Analytics Cloud Computing Center