Wessa.net

Send output to:


Data:
4028.8 4076.6 4125.8 4177.2 4183 4222.6 4255.8 4260.8 4279.2 4328.8 4356.6 4393 4419.4 4426.2 4467.2 4517.4 4517 4560.4 4589 4596 4621.2 4654.6 4708.6 4774.4 4824.8 4839 4869.8 4895.8 4895.8 4968.8 5010 5032.4 5054 5083.8 5117.4 5170.8 5182.2 5163.6 5212.6 5288 5303.4 5367.6 5433.8 5465.8 5493.8 5549.4 5590.2 5661.2 5699 5654.2 5671.8 5730.8 5693 5720.4 5747.8 5764.2 5783 5822.4 5836.2 5864.6 5913.4 5906.8 5954 6031.2 6011.2 6059.8 6091.6 6088 6082.2 6108 6151.4 6187 6190 6152.2 6183.8 6222.8 6165.8 6223.4 6292.8 6320.6 6344 6391.2 6443.4 6504 6520.2 6518.8 6563.8 6614 6555.6 6601.8 6632.4 6657.8 6674.4 6687 6697.6 6732 6736.4 6745.8 6805.2 6850.4 6807.2 6844.6 6850.8 6848.2 6837.8 6857.6 6900.8 6940.8 6937.4 6950.4 6978.8 6997.8 6934.8 6946.8 6956.2 6968.2 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA

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