Wessa.net

Send output to:


Data:
3406 3416 3426 3444 3464 3482 3496 3510 3530 3556 3580 3604 3620 3636 3648 3662 3676 3690 3700 3712 3726 3740 3760 3762 3766 3784 3800 3814 3828 3840 3850 3858 3866 3872 3878 3884 3920 3932 3946 3962 3976 3994 4012 4042 4062 4084 4106 4128 4132 4146 4154 4190 4134 4160 4174 4182 4224 4290 4330 4370 4398 4426 4458 4492 4528 4576 4624 4672 4720 4764 4808 4848 4866 4896 4926 4958 4988 5020 5052 5084 5116 5150 5182 5216 5342 5360 5380 5404 5430 5458 5490 5524 5560 5592 5626 5660 5702 5742 5784 5824 5866 5908 5956 6002 6050 6096 6140 6182 6226 6268 6312 6356 6398 6440 6480 6520

Name of dataseries


Source


Description


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') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Summary Statistics of dataseries x',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste('<pre>',RC.texteval('summary(x)'),'</pre>',sep='')) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable1.tab')

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