Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
109 88 87 78 72 85 73 77 90 78 96 84 87 105 89 78 96 79 90 96 95 79 86 99 111 105 123 102 82 86 117 94 110 86 109 118 64 78 86 98 64 84 87 88 106 78 79 95 98 101 104 91 78 123 109 77 77 102 88 81 83 72 95 109 91 87 112 95 103 108 116 71 70 105 112 86 109 112 97 122 97 64 84 110 70 100 102 108 123 78 109 106 95 108 74 86 82 88 96 114 111 88 123 89 114 121 100 83 92 108 87 84 95 90 82 84 96 109 84 83 93 120 83 103 103 102 90 69 114 64 87 116 121 90 92 81 84 106 75 79 80 74 66 81 98 99 68 100 97 99 104 82 92 99 109 106 89 87 98 95 92 90
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