Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
-3.95% 4.90% 1.58% 1.27% 3.83% 1.50% -1.75% 0.18% 2.79% 1.81% -1.37% 0.66% 2.48% -1.99% -0.68% -3.80% -2.35% -3.08% 0.00% 1.47% 1.06% 3.20% 0.90% -1.26% 0.97% 1.57% 1.07% -2.81% 0.28% 1.41% -3.14% -0.11% -4.88% 0.11% -1.08% 0.00% 0.64% 3.12% 0.86% 0.78% -0.62% 0.95% -0.39% -1.91% 1.53% 4.32% 0.80% 1.99% -3.20% -1.00% 0.89%
Data Y:
0.00% 0.90% 1.49% 1.08% 4.27% 1.37% 0.25% -1.64% 2.82% 1.91% -1.36% 0.67% 2.42% -2.00% -0.69% -3.70% -4.09% -5.78% 0.00% 1.41% 1.09% 3.24% 1.25% 0.85% -1.43% 1.45% 1.09% -3.16% 1.10% 1.39% -3.75% 0.80% -5.95% -0.75% -3.00% 0.00% 0.57% 2.70% 1.00% 3.06% -2.09% 0.11% 0.98% -1.06% 0.21% 4.36% 0.72% 1.92% -5.88% -1.59% -1.59%
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',2,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.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.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.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.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