Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
13.32 5.8 5.44 3.91 3.68 3.6 3.49 3.33 2.78 2.71 2.55 2.5 2.47 2.37 2.36 2.29 2.19 2.09 2.02 1.86 1.78 1.76 1.73 1.69 1.68 1.63 1.63 1.63 1.6 1.54 1.52 1.49 1.47 1.46 1.41 1.34 1.28 1.26 1.25 1.24 1.24 1.21 1.19 1.17 1.17 1.16 1.16 1.15 1.14 1.13 1.09 1.07 1.06 1.05 1.03 1.01 1.01 1.01 0.99 0.98 0.98 0.98 0.95 0.95 0.94 0.93 0.92 0.91 0.9 0.88 0.88 0.87 0.87 0.87 0.86 0.85 0.84 0.83 0.82 0.82 0.82 0.81 0.81 0.81 0.81 0.8 0.79 0.78 0.76 0.76 0.75 0.73 0.68 0.68 0.67 0.66 0.66 0.64 0.63 0.6 0.6 0.59 0.57 0.55 0.54 0.53 0.53 0.51 0.48 0.47 0.44 0.32 0.31 0.02 0.02 0.01
Sample Range:
(leave blank to include all observations)
From:
To:
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, 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