Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1323594 1300315.5 1277014.5 1230432.75 1701774 1678470.75 1323594 1087935.75 1111214.25 1111214.25 1134515.25 1183623.75 1041354 898857 782167.5 782167.5 1230432.75 1277014.5 922135.5 520677 733056.75 733056.75 898857 994547.25 971244 733056.75 852277.5 805468.5 1206927 1111214.25 733056.75 450591.75 709755.75 782167.5 852277.5 945438.75 756337.5 593088.75 663198.75 686477.25 1300315.5 1300315.5 945438.75 898857 1041354 971244 1160345.25 1396005.75 1442812.5 1111214.25 1017825.75 922135.5 1561803.75 1608612.75 1489394.25 1608612.75 1585082.25 1396005.75 1608612.75 1844271 1939961.25 1655192.25 1466091 1608612.75 2222428.5 2411527.5 2364948 2458086.75 2434808.25 2199147.75 2600606.25 2696296.5 2836264.5 2411527.5 2245729.5 2434808.25 2885375.25 3286831.5 3191143.5 3191143.5 3237950.25 3074451.75 3499440.75 3499440.75 3427029 3025343.25 3097755 3144561.75 3452631.75 3854090.25 3569298.75 3711820.5 3592602 3522719.25 4066697.25 3947478.75 3781678.5 3546020.25 3781678.5 3900897 4043166.75 4232245.5 4043166.75 4159858.5 4017566.25 3994287.75 4584822.75 4633931.25 4444854.75 4113276.75 4395744 4514735.25 4657234.5 4869614.25 4657234.5 4823032.5 4750623 4491434.25 5035389.75 5035389.75
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 op jaarbasis van Coca-Cola' par2 <- 'Niet gekend' par1 <- 'Coca-Cola omzet in EUR 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')
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