Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
50.69013383 36.67956693 24.85707655 63.8493725 71.88026786 61.16237624 51.77302394 53.55707102 58.5107985 27.25571118 48.12138237 59.20163898 39.81231053 70.80206783 23.57497941 47.20356717 34.20659133 76.54794086 51.89976687 65.28921098 63.52570697 45.63928326 39.85545173 45.07682379 62.13143419 44.05921808 76.64175775 56.42622271 69.4648729 73.50011457 69.09070145 64.01001045 92.24611772 74.30389025 71.48474353 67.19219568 45.66494059 65.93982383 83.84624731 51.64621458 74.85431542 63.22230797 60.32625842 86.62157095 71.92293603 57.19007148 68.77682477 80.25406423 64.38230738 72.09997351
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')
Compute
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
Click here to blog (archive) this computation