Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
81 91 96 85 74 78 71 72 87 72 90 87 89 110 95 72 70 79 92 93 97 75 88 105 82 89 114 81 73 82 110 93 114 91 97 97 68 72 81 102 62 102 84 75 102 62 100 82 78 106 88 85 97 114 105 100 72 106 78 80 88 62 93 87 109 91 110 98 99 95 97 88 72 102 95 93 90 80 75 109 75 72 77 93 72 91 95 111 105 90 105 90 92 95 75 92 100 82 102 104 98 95 114 93 110 104 91 79 97 102 77 105 95 104 75 82 91 105 71 89 79 113 82 102 82 92 82 86 108 74 87 97 102 75 82 72 88 97 85 62 95 95 72 92 91 97 78 95 91 95 88 92 97 104 113 113 82 90 91 95 102 92
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) dev.off() bitmap(file='test2.png') qqnorm(x) qqline(x, col=2) dev.off() bitmap(file='test3.png') plot(density(x), xlab=xlab) 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,mean(x)) 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,sd(x)) 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