Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
33259 33250 32875 32424 31867 31871 33140 33555 33324 32358 31857 32101 32810 32057 31663 31325 31103 31012 32511 33677 32213 31635 31043 31303 31899 31384 30650 30400 30003 29896 31557 31883 30830 30354 29756 29934 30599 30378 29925 29471 29567 29419 30796 31475 31708 31917 30871 31512 32362 31928 31699 30363 30386 30364 32806 33423 33071 33888 34805 35489 37259 37722 38764 39594 40004 40715 44028 45564 44277 44976 45406 47379 49200 50221 51573 53091 53337 54978 57885 67099 67169 69796 70600 71982 73957 75273 76322 77078 77954 79238 82179 83834 83744 84861 86478 88290 90287 91230 92380 92506 94172 94728 96581 97344 98346 98214 98366 98768
Seasonal Period
FALSE
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