Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
4435 4610 4955 5195 5290 5150 5375 5250 5020 5320 5305 5550 5175 5060 4910 4945 4840 4445 4145 4200 4605 4780 4840 5155 4520 4610 4755 4890 4830 4780 4550 4455 4340 4265 3900 3925 3855 3945 4095 4160 3985 3925 3935 3505 3435 3795 3685 3555 3895 3760 4020 4010 4200 3990 4320 4375 4270 4265 4245 3975 3990 4340 4625 4830 4745 4715 4470 4400 4535 4175 4245 4425 4215 4120 4515 4605 4610 4620 4495 4190 4205 4220 3870 4350 3950 3830 4505 4405 4540 4525 4575 4470 4425 4230 4110 4655 4275 4350 4455 4420 4500 4435 4720 4830 4810 4745 4870 4970 4550 4540 4840 4710 4520 4490 4630 4725 4770 4900 4795 4805 4635 4635 4775 4725 4650 4550 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
Name of dataseries
Source
Description
Season
12
6
4
No season
Chart options
Title:
Label y-axis:
Label x-axis:
Y-axis minimum
Y-axis maximum
R Code
par4 <- 'No season' par3 <- '' par2 <- '' par1 <- 'Forecasting : Plot & Describe Dataseries' 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