Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
7175 7049 6923 6670 9225 9099 7175 5898 6024 6024 6150 6416 5645 4873 4240 4240 6670 6923 4999 2823 3974 3974 4873 5391 5265 3974 4620 4366 6543 6024 3974 2443 3848 4240 4620 5125 4100 3215 3595 3721 7049 7049 5125 4873 5645 5265 6290 7568 7821 6024 5518 4999 8466 8720 8074 8720 8593 7568 8720 9998 10516 8973 7948 8720 12048 13073 12820 13325 13199 11921 14098 14616 15375 13073 12174 13199 15641 17818 17299 17299 17553 16666 18970 18970 18578 16400 16793 17046 18716 20893 19349 20121 19475 19096 22045 21399 20500 19223 20500 21146 21918 22943 21918 22550 21779 21653 24854 25120 24095 22298 23829 24474 25246 26398 25246 26145 25753 24348 27296 27296
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 <- 'Omzet van krantenwinkel 'Ochtend' tss jan '02 - dec '11' par2 <- 'Blackboard' par1 <- 'Omzet krantenwinkel' 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