Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
NA 40840 41285 40440 40790 40530 40945 40800 40490 40090 40170 40590 40540 40700 40785 40780 40790 40510 39985 39590 39705 39530 39680 39135 39410 39890 39710 39745 40035 39955 39370 39320 39655 39270 38780 38840 38230 38235 38460 38610 39225 39495 38975 38710 39030 39025 38860 38980 38730 39010 39120 39325 39445 39235 39765 39840 40090 40040 40075 39620 39905 40030 40300 NA NA 40065 39285 38845 38620 39010 38785 38810 38445 38160 34860 33910 33650 34210 34820 35080 35060 35220 35590 36125 36165 36195
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 <- 'Prijs goud per kg per dag' par2 <- 'Belgostat' par1 <- 'Prijs goud (EUR/kg)' 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