Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
NA 65 NA 56 NA NA NA NA NA NA NA 55 52 68 56 63 61 61 57 66 58 61 63 56 67 75 68 59 61 62 62 55 54 64 66 62 50 71 54 53 50 64 77 55 58 56 66 59 55 56 57 63 54 60 55 55 55 62 55 61 55 52 62 50 56 61 57 60 53 59 59 56 57 47 45 51 53 53 47 44 50 54 59 56 51 59 57 54 52 55 75 64 53 55 52 51 59 51 44 55 59 50 49 NA NA 41 52 45 45 55 51 47 NA NA NA NA NA NA 75 67 83 95 93 101 107 98 87 89 91 85 70 61 86 90 94 86 101 83 77 73 100 80 74 70 71 75 80 67 124 80 66 68 91 81 70 71 73 65 86 82 76 76 66 66 63 77 84 68 82 78 71 75 68 66 76 68 70 86 64 69 79 64 70 73 58 71 56 68 61 70 64 76 77 69 76 73 58 75 67 58
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