Wessa.net

Send output to:


Data:
4627 4597.8 4589 4575 4544.2 4522.2 4537.6 4630.6 4719.6 4722.2 4718 4721.8 4758 4807.4 4866 4846.4 4942.4 4920.4 4917.4 4890.2 4864.2 4817.2 4852.4 4836.4 4802.8 4835.8 4818.4 4845.2 4824.6 4799.8 4798.2 4802.4 4766.2 4804.8 4752.6 4798.6 4778.2 4774.6 4775.4 4812.4 4758.2 4785 4867.4 4842 4752 4778.8 4782.2 4774.2 4817.2 4812.4 4812.2 4837.2 4895 4952.6 4870.2 4857.4 4942.4 4952.8 4959 4969.4 4974.6 5017.2 5034.8 5063.8 5097.4 5215.8 5172 5216.4 5200.6 5237.6 5278.8 5368.2 5361.2 5349.4 5346.4 5443.4 5365 5386.8 5422 5419.8 5418.8 5391.8 5411.4 5446.6 5459.2 5495 5537 5559.8 5613.6 5630.6 5680.8 5728 5779.2 5806.2 5802.6 5774.6 5832.6 5840 5818.4 5861 5784.6 5785.2 5715.6 5718.6 5808.2 5839 5849 5853.6 5802.6 5849 5893.8 5829.4 5905.4 5936.8 5951 5973.6

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	1 seconds
R Server	Big Analytics Cloud Computing Center