Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1544400 1487200 1573000 1258400 1630200 1601600 1716000 1773200 1973400 1716000 1630200 2030600 1716000 1287000 1515800 1144000 1601600 1315600 1744600 1573000 1658800 1859000 1830400 2173600 1573000 1315600 1458600 1058200 1515800 1172600 1658800 1573000 1401400 2002000 1801800 2059200 1544400 1430000 1287000 1058200 1401400 1258400 1716000 1658800 1430000 1916200 1773200 2288000 1830400 1115400 1115400 1115400 1315600 1315600 1773200 1630200 1458600 1830400 1687400 2431000 1916200 1115400 1172600 972400 1344200 1544400 1944800 1916200 1544400 1801800 1601600 2288000 1744600 1401400 1258400 943800 1401400 1687400 1973400 1859000 1372800 1973400 1544400 2373800 1973400 1430000 1315600 886600 1401400 1344200 2030600 2030600 1544400 2002000 1487200 2316600 1973400 1458600 1115400 772200 1515800 1458600 1916200 2202200 1630200 1830400 1372800 2373800
Name of dataseries
Source
Description
Season
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 <- 'Overzicht van het aantal verkochte exemplaren van Humo van jan '06 - dec '14' par2 <- 'niet gekend' par1 <- 'Aantal verkochte exemplaren van de Humo' 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') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Summary Statistics of dataseries x',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('summary(x)'),'</pre>',sep='')) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable1.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