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