Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
00.521505 00.424828 00.425031 00.477194 00.828021 00.615619 00.366627 00.430888 00.281029 00.464625 00.269395 00.577905 00.566115 00.507758 00.750718 00.680840 00.766109 00.456147 00.497750 00.419327 00.609551 00.457337 00.570548 00.347900 00.387499 00.582429 00.239103 00.236745 00.262616 00.424093 00.365275 00.375076 00.409006 00.389168 00.240261 00.158950 00.439337 00.509468 00.374347 00.433983 00.413056 00.328893 00.518665 00.548650 00.546911 00.496349 00.530893 00.595776 00.557058 00.573133 00.500542 00.543127 00.559366 00.691169 00.440349 00.567666 00.596911 00.473554 00.592394 00.597556 00.633413 00.605712 00.704611 00.480526 00.702686 00.700902 00.603085 00.698092 00.597656 00.802342 00.601711 00.599313 00.602563 00.701663 00.499571 00.498092 00.497569 00.600183 00.333954 00.274437 00.320943 00.540667 00.405021 00.288596 00.327594 00.313261 00.257556 00.213839 00.186186 00.159271
Seasonal Period
12
12
1
2
3
4
6
12
Chart options
R Code
par1 <- as.numeric(par1) n <- length(x) sx <- sort(x) load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Variance Reduction Matrix',6,TRUE) a<-table.row.end(a) for (bigd in 0:2) { for (smalld in 0:3) { mylabel <- 'V(Y[t],d=' mylabel <- paste(mylabel,as.character(smalld),sep='') mylabel <- paste(mylabel,',D=',sep='') mylabel <- paste(mylabel,as.character(bigd),sep='') mylabel <- paste(mylabel,')',sep='') a<-table.row.start(a) a<-table.element(a,mylabel,header=TRUE) myx <- x if (smalld > 0) myx <- diff(myx,lag=1,differences=smalld) if (bigd > 0) myx <- diff(myx,lag=par1,differences=bigd) a<-table.element(a,var(myx)) a<-table.element(a,'Range',header=TRUE) a<-table.element(a,max(myx)-min(myx)) a<-table.element(a,'Trim Var.',header=TRUE) smyx <- sort(myx) sn <- length(smyx) a<-table.element(a,var(smyx[smyx>quantile(smyx,0.05) & smyx<quantile(smyx,0.95)])) a<-table.row.end(a) } } a<-table.end(a) table.save(a,file='mytable.tab') bitmap(file='pic0.png') op <- par(mfrow=c(2,2)) plot(x,type='l',xlab='time',ylab='value',main='d=0, D=0') plot(diff(x,lag=1,differences=1),type='l',xlab='time',ylab='value',main='d=1, D=0') plot(diff(x,lag=par1,differences=1),type='l',xlab='time',ylab='value',main='d=0, D=1') plot(diff(diff(x,lag=1,differences=1),lag=par1,differences=1),type='l',xlab='time',ylab='value',main='d=1, D=1') par(op) dev.off()
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