Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
40.25 50.9 40.31 50.42 40.46 49.55 40.75 56.8 41.81 46.12 42.89 48.33 42.92 54.79 43.12 47.05 43.54 44.01 44.39 56.88 44.52 55.89 45.36 46.69 45.58 47.51 47.02 53.83 47.37 50.83 47.44 48.88 47.76 56.66 48.27 48.41 48.35 44.46 48.82 50.51 48.89 46.89 49.18 52.39 49.21 49.63 50.37 47.32 50.51 52.67 51.76 46.55 52.12 49.12 52.23 52.95 52.33 51.28 52.36 48.5 53.97 53.29 54.04 55.97 54.05 56.01 54.27 48.8 54.29 44.49 55.59 54.55 56.13 51.64 57.47 61.45 60.45 54.06 64.02 56.88
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