Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
239050 238600 236980 236050 234870 233060 231370 230300 228340 226760 223550 221460 220560 220350 219500 218800 218130 217150 216430 215310 213780 213040 211940 212270 212540 213790 214400 215520 216690 217630 218710 219360 219800 221110 221320 225230 227340 228930 230340 231270 231830 232450 233220 233520 234520 234860 236560 238310 239690 240700 241330 241580 241670 241970 241690 241410 242130 242130 243320 242030 242740 243050 243360 243940 244270 244350 244260 244230 245130 246740 247910 249590 251610 253430 255290 256710 257190 257820 257460 257970 259520 261340 263150 265310 267370 269120 271000 272000
Name of dataseries
Source
Description
Season
No season
12
6
4
No season
Chart options
Title:
Label y-axis:
Label x-axis:
Y-axis minimum
Y-axis maximum
R Code
par4 <- 'No season' par3 <- 'aantal vrouwen met een wet,werk en bijstandsuitkering in Nederland vanaf 2007 tot 2014 per maand' par2 <- 'CBS' par1 <- 'Vrouwen met een WWB-uitkering' 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