Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
21.6 21.6 21.6 19.4 19.4 19.4 15.9 15.9 15.9 21.8 21.8 21.8 17.6 17.6 17.6 19 19 19 16.3 16.3 16.3 22.5 22.5 22.5 23.8 23.8 23.8 24.6 24.6 24.6 22.7 22.7 22.7 25.2 25.2 25.2 26.4 26.4 26.4 26 26 26 23.2 23.2 23.2 22.7 22.7 22.7 24 24 24 20.7 20.7 20.7 23.8 23.8 23.8 27.1 27.1 27.1
Data Y:
20.7 20.7 20.7 18 18 18 16.9 16.9 16.9 24.4 24.4 24.4 15.5 15.5 15.5 18.4 18.4 18.4 16.2 16.2 16.2 20.6 20.6 20.6 19.8 19.8 19.8 21.6 21.6 21.6 22.3 22.3 22.3 23.7 23.7 23.7 22.1 22.1 22.1 26.6 26.6 26.6 23.5 23.5 23.5 19.6 19.6 19.6 20 20 20 20.1 20.1 20.1 16 16 16 18.9 18.9 18.9
Number of bins for the Histograms (optional)
(?)
Chart options
Label y-axis:
Label x-axis:
R Code
library(car) if(par1 == '') par1 <- 0 par1 <- as.numeric(par1) if (par1 < 0) par1 <- 0 bitmap(file='test1.png') if(par1 > 0) { myhist<-hist(x, breaks=par1, col=2,main='Histogram (series X)') } else { myhist <- hist(x, col=2) } dev.off() bitmap(file='test1a.png') if(par1 > 0) { myhist<-hist(y, breaks=par1, col=2,main='Histogram (series Y)') } else { myhist <- hist(y, col=2) } dev.off() bitmap(file='test2.png') qqPlot(x,main='Normal Q-Q Plot (series X)',ylab='Sample Quantiles',xlab='Normal Quantiles') dev.off() bitmap(file='test2a.png') qqPlot(y,main='Normal Q-Q Plot (series Y)',ylab='Sample Quantiles',xlab='Normal Quantiles') dev.off() bitmap(file='test3.png') qqplot(x,y,main='Q-Q Plot (series X vs Y)',ylab='Sample Quantiles of series Y',xlab='Sample Quantiles of series X') qqline(x,y) grid() 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 of X',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 of X',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.row.start(a) a<-table.element(a,'mean of Y',header=TRUE) a<-table.element(a,mean(y)) 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 of Y',header=TRUE) a<-table.element(a,sd(y)) 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