Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
5255 4705 5097 5050 4852 4710 4824 4866 4744 4895 4735 5068 4866 4384 5066 4650 4759 4819 4833 5004 4857 4817 4854 5383 5387 4645 5234 4866 5079 4971 4970 5222 4773 5026 4943 5070 5239 4753 4980 4870 5025 4852 4993 5210 4771 5156 4960 5436 5254 4776 5271 5038 5181 5007 5267 5420 4986 5404 5111 5564 5389 5007 5234 5217 5174 5250 5515 5272 5239 5452 5123 5735 5669 5400 5718 5170 5273 5399 5431 5671 5323 5676 5500 6005 5586 5261 5841 5229 5370 5537 5339 5680 5235 5609 5485 6176 5478 5038 5570 5261 5457 5390 5511 5859 5207 5543 5333 5481 5608 4978 5318 5063 5375 5339 5559 5586 5290 5553 5297 5691 5628 5146 5498 5310 5385 5381
Name of dataseries
Source
Description
Season
No season
12
6
4
No season
Chart options
Title:
Label y-axis:
Label x-axis:
Y-axis minimum
Y-axis maximum
R Code
par4 <- '12' par3 <- '' par2 <- '' par1 <- 'N2070' 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