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