Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
567 557 547 527 729 719 567 466 476 476 486 507 446 385 335 335 527 547 395 223 314 314 385 426 416 314 365 345 517 476 314 193 304 335 365 405 324 254 284 294 557 557 405 385 446 416 497 598 618 476 436 395 669 689 638 689 679 598 689 790 831 709 628 689 952 1.033 1.013 1.053 1.043 942 1.114 1.155 1.215 1.033 962 1.043 1.236 1.408 1.367 1.367 1.387 1.317 1.499 1.499 1.468 1.296 1.327 1.347 1.479 1.651 1.529 1.590 1.539 1.509 1.742 1.691 1.620 1.519 1.620 1.671 1.732 1.813 1.732 1.782 1.721 1.711 1.964 1.985 1.904 1.762 1.883 1.934 1.995 2.086 1.995 2.066 2.035 1.924 2.157 2.157
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 <- '4' par3 <- 'Totale omzet per jaar' par2 <- 'Niet gekend' par1 <- 'Jaaromzet' 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