Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
88 94 90 73 68 80 86 86 91 79 96 92 72 96 70 86 87 88 79 90 95 85 90 115 84 79 94 97 86 111 87 98 87 68 88 82 111 75 94 95 80 95 68 94 88 84 101 98 78 109 102 81 97 75 97 101 101 95 95 95 90 107 92 86 70 95 96 91 87 92 97 102 91 68 88 97 90 101 94 101 109 100 103 94 97 85 75 77 87 78 108 97 105 106 107 95 107 115 101 85 90 115 95 97 112 97 77 90 94 103 77 98 90 111 77 88 75 92 78 106 80 87 92 111 86 85 90 101 94 86 86 90 75 86 91 97 91 70 98 96 95 100 95 97 97 92 115 88 87 100 98 102 96
Sample Range:
(leave blank to include all observations)
From:
To:
Number of Bins
(?)
Chart options
Title:
Label x-axis:
R Code
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