Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
64.55549787 81.05419073 73.99894342 17.25245353 29.41734579 20.22258792 28.04499081 86.49943277 20.62984996 2.697289509 79.57604095 65.23561322 75.36163412 10.33783043 75.69278224 58.7665109 29.35052631 92.40435124 55.20784056 19.57455103 88.26901295 72.84756274 88.83786683 53.96239505 0.957026382 27.17744106 29.7681741 89.45336066 49.86249579 28.84413305 61.57897769 75.17147668 51.38288686 1.569569349 72.66334581 96.63837439 56.26370317 15.07017785 56.30649511 29.00205889 15.53253287 32.85576064 43.76833858 17.22067093 62.03711925 13.05197846 47.07955604 23.12480358 15.4227456 29.39426327
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