Wessa.net

Send output to:


Data:
2312 1089 2742 3145 2966 2055 2450 2742 1697 2409 2233 2100 3434 1867 2365 3578 2845 2778 2056 2757 3325 3671 2147 3225 3556 4661 3344 5375 3907 3356 2184 3510 2834 3271 2834 2408 3261 1526 2938 2352 3915 3145 1566 2746 3572 2651 2805 3354 2523 1480 3278 5081 3332 2789 4111 2508 1833 2371 4268 2194 2935 3347 3034 5448 3427 3036 4196 3009 3369 4168 3403 1779 2761 2582 3153 3011 3419 4042 4379 4602 3249 4372 4328 3695 3614 2114 2839 2490 2610 2372 2833 4018 2734 3027 3862 3281 2746 2538 1805 2500 2601 3178 4193 2606 2491 4090 2786 2280 2403 2934 1601 1946 2554 2006 2830 3173 1960 3052 2151 2493 2752 2542 2027 1940 1877

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