Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
77 51 54 70 59 76 77 73 71 64 75 56 52 64 57 66 101 62 75 61 124 61 66 70 59 50 61 60 41 100 71 73 76 52 63 65 54 69 86 67 53 80 59 80 82 55 66 66 56 75 85 57 73 107 66 64 65 74 70 58 69 71 76 75 98 59 63 62 51 76 61 66 54 57 50 66 55 64 70 70 60 56 52 55 56 61 66 53 59 56 68 56 86 71 87 57 101 50 52 66 55 63 47 45 63 51 51 55 64 55 90 79 57 67 77 62 83 94 76 66 77 73 68 55 66 56 66 45 68 44 61 89 53 47 84 53 62 66 91 83 68 53 55 55 66 55 55 55 67 86 58 47 45 66 44 58 68 66 66 56 50 54 52 58 58 59 62 66 95 50 75 66 61 66 64 68 66 67 82 68 78 66 66 59 70 56 55 54 75 49 93 86 59 51 61 71 80 66 91 81
Sample Range:
(leave blank to include all observations)
From:
To:
Number of Bins
(?)
Chart options
Title:
Label x-axis:
R Code
par1 <- '10' 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