Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
58 53 59 57 51 64 52 65 62 61 61 54 50 63 58 39 71 52 68 56 54 63 54 54 75 56 78 60 64 64 52 62 55 56 50 50 63 61 53 60 56 53 57 57 56 56 50 52 55 47 45 62 53 52 57 64 59 55 76 62 68 55 45 68 44 62 56 50 53 64 52 53 54 64 55 55 59 70 57 47 47 48 57 51 54 53 59 59 63 66 53 63 56 60 58 50 59 51 62 77 68 76 76 69 71 65 70 92 76 119 65 66 101 75 79 64 69 88 65 80 78 85 82 74 102 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 87 83 90 85 66 88 54 69 56 96 76 61 62 71 66 81 68 80 70 76 88 89 74 83 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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation