Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
214320 212588 205816 202196 195722 198563 229139 229527 211868 203555 195770 199834 203089 198480 192684 187827 182414 182510 211524 211451 200140 191568 186424 191987 203583 201920 195978 191395 188222 189422 214419 224325 216222 210506 207221 210027 215191 215177 211701 210176 205491 206996 235980 241292 236675 229127 225436 229570 239973 236168 230703 224790 217811 219576 245472 248511 242084 235572 229827 229697 239567 237201 233164 227755 220189 221270 245413 247826 237736 230079 225939 228987
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 <- 'Evolutie van het aantal werkzoekende in het Vlaamse Gewest' par2 <- 'nnb.be' par1 <- 'Aantal werkzoekende ' 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