Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-.23603 -.22329 -.98722 N/A -.20916 -.83691 .18318 2.58954 -1.87259 .70744 .69671 .01125 .55798 .00869 -1.49737 -.35117 1.60136 1.48752 -.05669 -.32867 -.18835 .64867 .25107 .94962 -.95531 -.16096 .02739 .13524 1.36403 -.51630 -.02305 -1.53902 -.03469 .02122 .36619 -1.31139 .95386 .15809 -.22322 1.04166 -.09199 1.40226 -1.57437 -.05808 2.69837 N/A -.17087 .10170 N/A .00064 -.38110 -1.22149 -.38152 .19873 -.06150 -1.29019 .47763 .00663 -.67902 -2.25148 .25954 .08283 .15933 2.31689 -.81691 -.06062 -2.12345 -.66951 -.05618 .00482 .03916 -.10577 -.39100 .27471 .22681 -.81607 -.09081 -.45110 .03146 .09176 -.49333 .88786 -.53811 -.84391 -3.02761 .97860 -.16763 .06600 -.04553 .21516 -.47895 -.79054 .34734 -.09800 -.02290 .26774 N/A 1.71063 3.44613 .01636 .01648 -.86211 .46774 -.03588 -.66227 .03937 -.77942 -.62550 -.51126 N/A -.61671 3.87346 -.20108 -.07349 -.47128 .39382 .08677 1.08059 -1.78518 -.63051 .02103 .03923 1.41604 -1.41336 .85323 1.02270 -.37814 2.95383 -.41748 -.20547 .91408 -.24916 .40275 -.24535 .01330 -2.16009 1.48063 .25471 -.66796 .14765 N/A -.95118 -.74146 .23782 -.55353 -.06333 1.32884 -.47875 .04108 .13506 1.94159 2.17973 -.39160 .00896 .60958 N/A -.21449 -.86699 -.07428 -.19663 .42151 1.66945 N/A -.38021 -1.38885 .34843 N/A -.02645 -1.26923 -.16500 .20970 .15661 -.02990 .48863 -.08187 2.18861 -1.10653 -.36434 -1.04108 -.88187 -.32838 -.03505 .01552
Box-Cox transformation parameter
1
1
-2.0
-1.9
-1.8
-1.7
-1.6
-1.5
-1.4
-1.3
-1.2
-1.1
-1.0
-0.9
-0.8
-0.7
-0.6
-0.5
-0.4
-0.3
-0.2
-0.1
0.0
0.1
0.2
0.3
0.4
0.5
0.6
0.7
0.8
0.9
1.0
1.1
1.2
1.3
1.4
1.5
1.6
1.7
1.8
1.9
2.0
Degree (d) of non-seasonal differencing
0
0
1
2
Degree (D) of seasonal differencing
0
0
1
2
Seasonal Period
1
1
2
3
4
12
Chart options
R Code
par1 <- as.numeric(par1) par2 <- as.numeric(par2) par3 <- as.numeric(par3) par4 <- as.numeric(par4) if (par1 == 0) { x <- log(x) } else { x <- (x ^ par1 - 1) / par1 } if (par2 > 0) x <- diff(x,lag=1,difference=par2) if (par3 > 0) x <- diff(x,lag=par4,difference=par3) bitmap(file='test1.png') r <- spectrum(x,main='Raw Periodogram') dev.off() bitmap(file='test2.png') cpgram(x,main='Cumulative Periodogram') dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Raw Periodogram',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Parameter',header=TRUE) a<-table.element(a,'Value',header=TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Box-Cox transformation parameter (lambda)',header=TRUE) a<-table.element(a,par1) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Degree of non-seasonal differencing (d)',header=TRUE) a<-table.element(a,par2) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Degree of seasonal differencing (D)',header=TRUE) a<-table.element(a,par3) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Seasonal Period (s)',header=TRUE) a<-table.element(a,par4) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Frequency (Period)',header=TRUE) a<-table.element(a,'Spectrum',header=TRUE) a<-table.row.end(a) for (i in 1:length(r$freq)) { a<-table.row.start(a) mylab <- round(r$freq[i],4) mylab <- paste(mylab,' (',sep='') mylab <- paste(mylab,round(1/r$freq[i],4),sep='') mylab <- paste(mylab,')',sep='') a<-table.element(a,mylab,header=TRUE) a<-table.element(a,round(r$spec[i],6)) 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