Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
3836 3314 3730 3668 3934 4070 4214 4002 3930 3898 3778 4064 3774 3286 3674 3734 3980 4012 4176 4074 3986 3854 3994 3922 3754 3682 3952 3928 4140 3992 4018 3990 3924 3974 4042 4028 3684 3324 3780 3822 4086 4084 4230 4246 3796 3956 3904 4134 4056 3546 3772 3916 4418 4282 4336 4424 4174 4120 4150 4330 4178 3576 4084 4120 4350 4274 4384 4318 4172 4150 4154 4362 4186 3916 4178 4158 4266 4206 4458 4490 4186 4268 4248 4544 4312 3736 4114 4098 4292 4384 4580 4456 4260 4260 4242 4278 4276 3926 4112 4078 4116 4278 4504 4564 4380 4278 4178 4280 4122 3692 4128 4056 4396 4428 4532 4508 4234 4198 4218 4570 4362 3910 4156 4184 4414 4334
Name of dataseries
Source
Description
Season
12
12
6
4
No 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')
Compute
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
Click here to blog (archive) this computation