Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
254 232 273 340 339 394 455 321 556 557 679 200 143 182 151 139 209 345 206 193 279 428 165 161 188 240 186 248 311 160 221 399 394 123 159 162 235 155 254 346 217 278 364 352 162 243 140 174 153 202 310 204 230 306 387 145 192 186 309 222 258 297 246 253 471 590 145 157 178 174 102 215 300 234 240 293 177 161 143 236 207 107 309 274 175 252 333 199 155 221 202 209 188 240 292 364 228 316 203 173 227 184 171 162 258 304 328 306 329 255 160 132 119 117 185 276 186 158 206 265 261 47 41 16 10 24 48 14 40 48 61 115
Name of dataseries
Source
Description
Season
12
12
6
4
No season
Chart options
Title:
Label y-axis:
Label x-axis:
Y-axis minimum
Y-axis maximum
R Code
par4 <- '12' par3 <- '' par2 <- 'http://www.wessa.net/rwasp_univariatedataseries.wasp?utag=eline.cornelis@student.kdg.be.kdg&protag=KDG_HB.BBM.14184' par1 <- 'Verkoop mini coopers Nederland' if (par4 != 'No season') { par4 <- as.numeric(par4) if (par4 < 4) par4 <- 12 } summary(x) n <- length(x) bitmap(file='test1.png') if (par4=='No season') { plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n') axis(1,at=seq(1,n,10)) } if (par4!='No season') { plot(x,col=2,type='b',main=main,xlab=xlab,ylab=ylab,xaxt='n') axis(1,at=seq(1,n,par4)) grid(nx=0,ny=NULL,col='black') abline(v=seq(1,n,par4),col='black',lty='dotted') } dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Univariate Dataseries',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Name of dataseries',header=TRUE) a<-table.element(a,par1) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Source',header=TRUE) a<-table.element(a,par2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Description',header=TRUE) a<-table.element(a,par3) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Number of observations',header=TRUE) a<-table.element(a,length(x)) 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