Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
867.887509505211 -2250.28069676838 33618.3570412959 9954.34468238836 354.191730842355 18882.406400463 20229.4310915672 268402.416151187 -113346.926055862 -45016.394227939 35069.861367254 58531.0957290091 -77256.3771198791 -31473.594568955 -52391.0075132882 32854.9847569661 101107.732845397 -176275.960398033 79531.884415102 -176414.251561376 151290.579462589 167731.594163443 143237.122434691 80251.9665265577 118735.726273623 75035.8259037494 19198.3085437346 -36364.5639276314 -36170.5787440905 -109567.395064155 -100783.336097857 -149267.403931369 38947.3510583149 58613.0600994635 16074.4602044407 -41563.0049150659 -15970.5964777959 -47563.9548420802 59595.3577179922 65897.8405390448 -166489.283203891 46312.3269884632 -15952.8722863516 -87780.6523566012 134744.172737777 75232.8122408289 24408.7558471514 -15406.1403381955 -3766.75348767364 27197.2239951006 -46777.2890031503 -82472.8212609495 -35154.7184801844 -46946.870011609 -43641.5364941684 -54920.7084991732 54905.4038222157 -10509.5840707596 -13706.8046976985 -42347.6087628011 -28990.4687708701
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
12
1
2
3
4
12
Chart options
R Code
par4 <- '12' par3 <- '1' par2 <- '0' par1 <- '1' 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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation