Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
128 502 629.7 595.9 823.7 498.7 766.9 1611.3 329.7 1378.9 1159.4 790.1 -189.6 862.4 426.6 852 834.7 1026.7 1052.8 1280.9 -243.6 976 908.2 416 610.7 728 520.8 905.8 768.9 479.3 1054.2 1411.9 -131 1526.2 1049.5 550.8 168.5 458.2 297 616.3 762.7 693.1 512.7 1169.2 -915.1 1384.2 1368.9 -275.1 -408.9 -37.5 171.5 671.8 -18.5 231.6 747.5 1505.7 -83.6 1173.2 1452.1 777 -52.8 861.2 735.2 1073.6 966.9 1189.8 1093.5 1782.7 -70.4 1471.6 1273.8 900.8 -910.2 299.8 460.2 677.2 937.1 1265.4 1275.6 1582.6 -154.2 1667.7 1083.1 891.7 -26.5 423.4 662.8 711.4 993.3 1133.2 343.9 1415.8 -531.8 1193.6 1201.3 805.6 -164.8
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(x,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')
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