Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
3469648 3456726 3443622 3416504 3684772 3670576 3469648 3336060 3348982 3348982 3363360 3389204 3429426 3429426 3403582 3336060 3684772 3737916 3657654 3469648 3550092 3429426 3483844 3509870 3536988 3469648 3483844 3389204 3684772 3778138 3697876 3550092 3710798 3536988 3697876 3684772 3724994 3577210 3737916 3724994 3966144 3911726 3697876 3590132 3737916 3536988 3684772 3710798 3765216 3644732 3710798 3751020 3898804 3778138 3617432 3443622 3604510 3162250 3376282 3496766 3617432 3443622 3443622 3443622 3536988 3403582 3228498 3081988 3188276 2773316 3027570 3175354 3202472 3054688 3067610 3027570 3162250 3067610 2881060 2746198 2974244 2479022 2800616 2947126 2947126 2773316 2612610 2599688 2746198 2612610 2358538 2183454 2371460 1929382 2331238 2545088 2612610 2464826 2278094 2411682 2464826 2424604 2022566 1836016 1969422 1567566 1982526 2130310 2250794 2049866 1861860 1969422 2022566 1916278 1514422 1339338 1500044 1057966 1540266 1836016
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 <- 'Mijn cijferreeks gaat over de omzet van Evian op een jaarbasis. De gegevens bevatten de omzet in euro ten opzichte van een basisjaar. En dit wordt maandelijks berekend en weergegeven. De tijdreeks van deze gegevens verloopt van januari 2005 tot december 2014. Het tijdsinterval verloopt per maand. Aan de hand van deze datagegevens kan je te weten komen hoeveel meer of minder de omzet bedraagt ten opzichte van het basisjaar.' par2 <- 'Niet gekend' par1 <- 'Omzet Evian op jaarbasis' 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