Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
279773 292449 334066 383477 264610 330841 360279 332567 341491 306569 271150 238664 209446 252653 271616 295886 385725 302623 308659 353597 308374 360733 349065 339107 246447 320308 302390 296501 264921 258854 313033 449565 340463 316968 332333 337437 247642 322064 425839 483352 381833 231813 302875 388575 335874 327202 313759 312874 311114 335851 516061 618796 407237 536994 616736 554622 553416 640694 637804 780845 512707 789842 859063 701257 725173 586345 650724 780711 553643 650780 568272 480615 451493 471401 455714 517030 534403 292833 544623 695731 457532 413968 407210 375873
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 <- 'Beursactiviteit van Belgische waarden verhandeld kapitaal (gemiddelde per beursdag (duizenden euro's))' par2 <- 'Belgostat' par1 <- 'Beursactiviteit van Belgische waarden verhandeld kapitaal (gemiddelde per beursdag (duizenden euro's))' 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