Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
128 7.692 85 227 144 290 277 226 180 115 55 167 206 165 78 274 131 164 154 75 112 331 174 95 116 168 98 142 162 121 80 94 163 141 385 357 1.121 202 130 145 71 175 304 135 25 219 188 82 376 101 239 75 112 241 90 150 131 81 81 367 117 123 139 101 132 505 63 107 182 170
Data Y:
159 5.073 145 167 75 371 196 208 130 111 73 164 287 170 50 255 101 183 162 79 187 325 136 140 166 167 116 245 215 177 123 193 207 158 440 376 736 199 148 146 99 238 233 133 24 189 141 83 355 81 279 80 146 177 85 146 130 90 57 333 102 116 118 76 106 394 60 82 192 155
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation