Wessa.net

Send output to:


Data:
1.336 1.3649 1.3999 1.4442 1.4349 1.4388 1.4264 1.4343 1.377 1.3706 1.3556 1.3179 1.2905 1.3224 1.3201 1.3162 1.2789 1.2526 1.2288 1.24 1.2856 1.2974 1.2828 1.3119 1.3288 1.3359 1.2964 1.3026 1.2982 1.3189 1.308 1.331 1.3348 1.3635 1.3493 1.3704 1.361 1.3658 1.3823 1.3812 1.3732 1.3592 1.3539 1.3316 1.2901 1.2673 1.2472 1.2331 1.1621 1.135 1.0838 1.0779 1.115 1.1213 1.0996 1.1139 1.1221 1.1235 1.0736 1.0877

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')

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