Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1968287 393414 335829 277276 265894 210836 218974 226654 199827 183391 149580 1024887 131724 121144 122979 156918 169770 182399 190026 189338 181574 203803 204168 258950 261337 152725 Gesloten Gesloten Gesloten Gesloten 311714 417869 426635 422172 551444 585730 631758 657004 555087 634819 577624 580075 822550 339242 363720 322969 288643 264145 809978 258306 252495 Gesloten Gesloten Gesloten Gesloten Gesloten Gesloten 603349 1009161 958386 1143046 1026631 1129637 1250094 1204371 1301152 1435192 1476400 1632647 1591005 1668558 1735230 1763448 1735796 2013594 2143173 2295193 2405554 2416502 2070417 2561157 2757768 2899070 3003659 2914814 3018455 3045573 3050606 3298844 3430886 3429571 3594190 3393208 3399683 3701558 4183857 4368573 4386291 4293187 4668468 5580363 5698613 5442346 5747357 5537155 5419462 5212677 5530279 5719773 6051603 6368534 6315324 6103987 6157042 5864969 6230050 6428441 6719200 6822374 6826591 6503413 6612000
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
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