Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
2010januari 92.64 2010februari 91.48 2010maart 92.65 2010april 93.91 2010mei 90.49 2010juni 94.56 2010juli 95.11 2010augustus 93.07 2010september 93.26 2010oktober 92.92 2010november 90.9 2010december 91.77 2011januari 86.16 2011februari 92.79 2011maart 97.45 2011april 97.74 2011mei 99.92 2011juni 99.46 2011juli 98.52 2011augustus 97.92 2011september 97.85 2011oktober 104.94 2011november 104.55 2011december 105.35 2012januari 95.75 2012februari 105.99 2012maart 106.11 2012april 107.33 2012mei 106.11 2012juni 108.17 2012juli 104.62 2012augustus 106.71 2012september 97.86 2012oktober 104.41 2012november 96.09 2012december 102.41 2013januari 96.3 2013februari 103.04 2013maart 105.11 2013april 99.4 2013mei 104.45 2013juni 104.31 2013juli 104.06 2013augustus 101.16 2013september 100.82 2013oktober 102.6 2013november 92.78 2013december 99.68 2013 101.14 2014januari 95.14 2014februari 101.28 2014maart 100.03 2014april 101.17 2014mei 98.93 2014juni 97.77 2014juli 100.24 2014augustus 98.05 2014september 95.82 2014oktober 99.19 2014november 97.42 2014december 98.02 2014 98.59 2015januari 97.34 2015februari 101.23 2015maart 100.16 2015april 100.72 2015mei 99.8 2015juni 100.39 2015juli 101.82 2015augustus 102.95 2015september 98.8 2015oktober 100.24 2015november 98.4 2015december 98.15
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 <- 'd' par2 <- 'd' par1 <- 'Opgave 1: Thee' 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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation