Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
77 68 76 76 69 71 65 70 92 76 119 65 66 101 75 79 64 69 88 65 80 78 85 73 82 74 102 64 65 73 75 57 68 71 71 97 80 66 69 69 55 59 62 70 84 69 88 103 63 84 79 67 83 96 75 65 78 69 67 87 83 90 85 66 88 54 69 56 96 76 61 82 62 71 66 81 68 80 82 70 76 88 89 74 83 81 90 79
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