Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_spectrum.wasp
Title produced by softwareSpectral Analysis
Date of computationSun, 19 Dec 2010 13:21:43 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Dec/19/t129276479948r2h212ng05siq.htm/, Retrieved Sun, 05 May 2024 07:29:48 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=112360, Retrieved Sun, 05 May 2024 07:29:48 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact138
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Spectral Analysis] [] [2010-12-19 12:53:32] [7e261c986c934df955dd3ac53e9d45c6]
-   P     [Spectral Analysis] [paperuit_CP3] [2010-12-19 13:21:43] [13dfa60174f50d862e8699db2153bfc5] [Current]
-   P       [Spectral Analysis] [paperuit_CP2] [2010-12-19 14:13:02] [7e261c986c934df955dd3ac53e9d45c6]
-   P         [Spectral Analysis] [paperCP_werk2] [2010-12-24 14:30:52] [74be16979710d4c4e7c6647856088456]
-               [Spectral Analysis] [Kristof Nagels] [2010-12-24 15:08:47] [8441f95c4a5787a301bc621ebc7904ca]
Feedback Forum

Post a new message
Dataseries X:
15
14.4
13
13.7
13.6
15.2
12.9
14
14.1
13.2
11.3
13.3
14.4
13.3
11.6
13.2
13.1
14.6
14
14.3
13.8
13.7
11
14.4
15.6
13.7
12.6
13.2
13.3
14.3
14
13.4
13.9
13.7
10.5
14.5
15
13.5
13.5
13.2
13.8
16.2
14.7
13.9
16
14.4
12.3
15.9
15.9
15.5
15.1
14.5
15.1
17.4
16.2
15.6
17.2
14.9
13.8
17.5
16.2
17.5
16.6
16.2
16.6
19.6
15.9
18
18.3
16.3
14.9
18.2
18.4
18.5
16
17.4
17.2
19.6
17.2
18.3
19.3
18.1
16.2
18.4
20.5
19
16.5
18.7
19
19.2
20.5
19.3
20.6
20.1
16.1
20.4
19.7
15.6
14.4
13.7
14.1
15
14.2
13.6
15.4
14.8
12.5
16.2
16.1
16
15.8
15.2
15.7
18.9
17.4
17
19.8
17.7
16
19.6
19.7




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 2 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=112360&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=112360&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=112360&T=0

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24







Raw Periodogram
ParameterValue
Box-Cox transformation parameter (lambda)-0.6
Degree of non-seasonal differencing (d)1
Degree of seasonal differencing (D)1
Seasonal Period (s)12
Frequency (Period)Spectrum
0.0093 (108)7.8e-05
0.0185 (54)8.5e-05
0.0278 (36)0.000249
0.037 (27)0.000146
0.0463 (21.6)0.000301
0.0556 (18)0.000177
0.0648 (15.4286)6.1e-05
0.0741 (13.5)3.1e-05
0.0833 (12)3e-06
0.0926 (10.8)3.4e-05
0.1019 (9.8182)3.7e-05
0.1111 (9)0
0.1204 (8.3077)1.3e-05
0.1296 (7.7143)0.000109
0.1389 (7.2)4.7e-05
0.1481 (6.75)4e-06
0.1574 (6.3529)4.8e-05
0.1667 (6)2e-06
0.1759 (5.6842)1e-05
0.1852 (5.4)5.7e-05
0.1944 (5.1429)3.5e-05
0.2037 (4.9091)4.1e-05
0.213 (4.6957)0.000105
0.2222 (4.5)0.000291
0.2315 (4.32)0.000139
0.2407 (4.1538)8.2e-05
0.25 (4)4.8e-05
0.2593 (3.8571)1.9e-05
0.2685 (3.7241)6.2e-05
0.2778 (3.6)7.1e-05
0.287 (3.4839)6e-06
0.2963 (3.375)8.1e-05
0.3056 (3.2727)0.000237
0.3148 (3.1765)0.00015
0.3241 (3.0857)2.6e-05
0.3333 (3)0.000109
0.3426 (2.9189)0.001292
0.3519 (2.8421)0.002451
0.3611 (2.7692)0.000559
0.3704 (2.7)4.9e-05
0.3796 (2.6341)3e-04
0.3889 (2.5714)0.001128
0.3981 (2.5116)0.000165
0.4074 (2.4545)0.000149
0.4167 (2.4)5.5e-05
0.4259 (2.3478)0.000318
0.4352 (2.2979)0.000584
0.4444 (2.25)0.000118
0.4537 (2.2041)3.9e-05
0.463 (2.16)5.4e-05
0.4722 (2.1176)0.000327
0.4815 (2.0769)0.000741
0.4907 (2.0377)2e-06
0.5 (2)4.7e-05

\begin{tabular}{lllllllll}
\hline
Raw Periodogram \tabularnewline
Parameter & Value \tabularnewline
Box-Cox transformation parameter (lambda) & -0.6 \tabularnewline
Degree of non-seasonal differencing (d) & 1 \tabularnewline
Degree of seasonal differencing (D) & 1 \tabularnewline
Seasonal Period (s) & 12 \tabularnewline
Frequency (Period) & Spectrum \tabularnewline
0.0093 (108) & 7.8e-05 \tabularnewline
0.0185 (54) & 8.5e-05 \tabularnewline
0.0278 (36) & 0.000249 \tabularnewline
0.037 (27) & 0.000146 \tabularnewline
0.0463 (21.6) & 0.000301 \tabularnewline
0.0556 (18) & 0.000177 \tabularnewline
0.0648 (15.4286) & 6.1e-05 \tabularnewline
0.0741 (13.5) & 3.1e-05 \tabularnewline
0.0833 (12) & 3e-06 \tabularnewline
0.0926 (10.8) & 3.4e-05 \tabularnewline
0.1019 (9.8182) & 3.7e-05 \tabularnewline
0.1111 (9) & 0 \tabularnewline
0.1204 (8.3077) & 1.3e-05 \tabularnewline
0.1296 (7.7143) & 0.000109 \tabularnewline
0.1389 (7.2) & 4.7e-05 \tabularnewline
0.1481 (6.75) & 4e-06 \tabularnewline
0.1574 (6.3529) & 4.8e-05 \tabularnewline
0.1667 (6) & 2e-06 \tabularnewline
0.1759 (5.6842) & 1e-05 \tabularnewline
0.1852 (5.4) & 5.7e-05 \tabularnewline
0.1944 (5.1429) & 3.5e-05 \tabularnewline
0.2037 (4.9091) & 4.1e-05 \tabularnewline
0.213 (4.6957) & 0.000105 \tabularnewline
0.2222 (4.5) & 0.000291 \tabularnewline
0.2315 (4.32) & 0.000139 \tabularnewline
0.2407 (4.1538) & 8.2e-05 \tabularnewline
0.25 (4) & 4.8e-05 \tabularnewline
0.2593 (3.8571) & 1.9e-05 \tabularnewline
0.2685 (3.7241) & 6.2e-05 \tabularnewline
0.2778 (3.6) & 7.1e-05 \tabularnewline
0.287 (3.4839) & 6e-06 \tabularnewline
0.2963 (3.375) & 8.1e-05 \tabularnewline
0.3056 (3.2727) & 0.000237 \tabularnewline
0.3148 (3.1765) & 0.00015 \tabularnewline
0.3241 (3.0857) & 2.6e-05 \tabularnewline
0.3333 (3) & 0.000109 \tabularnewline
0.3426 (2.9189) & 0.001292 \tabularnewline
0.3519 (2.8421) & 0.002451 \tabularnewline
0.3611 (2.7692) & 0.000559 \tabularnewline
0.3704 (2.7) & 4.9e-05 \tabularnewline
0.3796 (2.6341) & 3e-04 \tabularnewline
0.3889 (2.5714) & 0.001128 \tabularnewline
0.3981 (2.5116) & 0.000165 \tabularnewline
0.4074 (2.4545) & 0.000149 \tabularnewline
0.4167 (2.4) & 5.5e-05 \tabularnewline
0.4259 (2.3478) & 0.000318 \tabularnewline
0.4352 (2.2979) & 0.000584 \tabularnewline
0.4444 (2.25) & 0.000118 \tabularnewline
0.4537 (2.2041) & 3.9e-05 \tabularnewline
0.463 (2.16) & 5.4e-05 \tabularnewline
0.4722 (2.1176) & 0.000327 \tabularnewline
0.4815 (2.0769) & 0.000741 \tabularnewline
0.4907 (2.0377) & 2e-06 \tabularnewline
0.5 (2) & 4.7e-05 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=112360&T=1

[TABLE]
[ROW][C]Raw Periodogram[/C][/ROW]
[ROW][C]Parameter[/C][C]Value[/C][/ROW]
[ROW][C]Box-Cox transformation parameter (lambda)[/C][C]-0.6[/C][/ROW]
[ROW][C]Degree of non-seasonal differencing (d)[/C][C]1[/C][/ROW]
[ROW][C]Degree of seasonal differencing (D)[/C][C]1[/C][/ROW]
[ROW][C]Seasonal Period (s)[/C][C]12[/C][/ROW]
[ROW][C]Frequency (Period)[/C][C]Spectrum[/C][/ROW]
[ROW][C]0.0093 (108)[/C][C]7.8e-05[/C][/ROW]
[ROW][C]0.0185 (54)[/C][C]8.5e-05[/C][/ROW]
[ROW][C]0.0278 (36)[/C][C]0.000249[/C][/ROW]
[ROW][C]0.037 (27)[/C][C]0.000146[/C][/ROW]
[ROW][C]0.0463 (21.6)[/C][C]0.000301[/C][/ROW]
[ROW][C]0.0556 (18)[/C][C]0.000177[/C][/ROW]
[ROW][C]0.0648 (15.4286)[/C][C]6.1e-05[/C][/ROW]
[ROW][C]0.0741 (13.5)[/C][C]3.1e-05[/C][/ROW]
[ROW][C]0.0833 (12)[/C][C]3e-06[/C][/ROW]
[ROW][C]0.0926 (10.8)[/C][C]3.4e-05[/C][/ROW]
[ROW][C]0.1019 (9.8182)[/C][C]3.7e-05[/C][/ROW]
[ROW][C]0.1111 (9)[/C][C]0[/C][/ROW]
[ROW][C]0.1204 (8.3077)[/C][C]1.3e-05[/C][/ROW]
[ROW][C]0.1296 (7.7143)[/C][C]0.000109[/C][/ROW]
[ROW][C]0.1389 (7.2)[/C][C]4.7e-05[/C][/ROW]
[ROW][C]0.1481 (6.75)[/C][C]4e-06[/C][/ROW]
[ROW][C]0.1574 (6.3529)[/C][C]4.8e-05[/C][/ROW]
[ROW][C]0.1667 (6)[/C][C]2e-06[/C][/ROW]
[ROW][C]0.1759 (5.6842)[/C][C]1e-05[/C][/ROW]
[ROW][C]0.1852 (5.4)[/C][C]5.7e-05[/C][/ROW]
[ROW][C]0.1944 (5.1429)[/C][C]3.5e-05[/C][/ROW]
[ROW][C]0.2037 (4.9091)[/C][C]4.1e-05[/C][/ROW]
[ROW][C]0.213 (4.6957)[/C][C]0.000105[/C][/ROW]
[ROW][C]0.2222 (4.5)[/C][C]0.000291[/C][/ROW]
[ROW][C]0.2315 (4.32)[/C][C]0.000139[/C][/ROW]
[ROW][C]0.2407 (4.1538)[/C][C]8.2e-05[/C][/ROW]
[ROW][C]0.25 (4)[/C][C]4.8e-05[/C][/ROW]
[ROW][C]0.2593 (3.8571)[/C][C]1.9e-05[/C][/ROW]
[ROW][C]0.2685 (3.7241)[/C][C]6.2e-05[/C][/ROW]
[ROW][C]0.2778 (3.6)[/C][C]7.1e-05[/C][/ROW]
[ROW][C]0.287 (3.4839)[/C][C]6e-06[/C][/ROW]
[ROW][C]0.2963 (3.375)[/C][C]8.1e-05[/C][/ROW]
[ROW][C]0.3056 (3.2727)[/C][C]0.000237[/C][/ROW]
[ROW][C]0.3148 (3.1765)[/C][C]0.00015[/C][/ROW]
[ROW][C]0.3241 (3.0857)[/C][C]2.6e-05[/C][/ROW]
[ROW][C]0.3333 (3)[/C][C]0.000109[/C][/ROW]
[ROW][C]0.3426 (2.9189)[/C][C]0.001292[/C][/ROW]
[ROW][C]0.3519 (2.8421)[/C][C]0.002451[/C][/ROW]
[ROW][C]0.3611 (2.7692)[/C][C]0.000559[/C][/ROW]
[ROW][C]0.3704 (2.7)[/C][C]4.9e-05[/C][/ROW]
[ROW][C]0.3796 (2.6341)[/C][C]3e-04[/C][/ROW]
[ROW][C]0.3889 (2.5714)[/C][C]0.001128[/C][/ROW]
[ROW][C]0.3981 (2.5116)[/C][C]0.000165[/C][/ROW]
[ROW][C]0.4074 (2.4545)[/C][C]0.000149[/C][/ROW]
[ROW][C]0.4167 (2.4)[/C][C]5.5e-05[/C][/ROW]
[ROW][C]0.4259 (2.3478)[/C][C]0.000318[/C][/ROW]
[ROW][C]0.4352 (2.2979)[/C][C]0.000584[/C][/ROW]
[ROW][C]0.4444 (2.25)[/C][C]0.000118[/C][/ROW]
[ROW][C]0.4537 (2.2041)[/C][C]3.9e-05[/C][/ROW]
[ROW][C]0.463 (2.16)[/C][C]5.4e-05[/C][/ROW]
[ROW][C]0.4722 (2.1176)[/C][C]0.000327[/C][/ROW]
[ROW][C]0.4815 (2.0769)[/C][C]0.000741[/C][/ROW]
[ROW][C]0.4907 (2.0377)[/C][C]2e-06[/C][/ROW]
[ROW][C]0.5 (2)[/C][C]4.7e-05[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=112360&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=112360&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Raw Periodogram
ParameterValue
Box-Cox transformation parameter (lambda)-0.6
Degree of non-seasonal differencing (d)1
Degree of seasonal differencing (D)1
Seasonal Period (s)12
Frequency (Period)Spectrum
0.0093 (108)7.8e-05
0.0185 (54)8.5e-05
0.0278 (36)0.000249
0.037 (27)0.000146
0.0463 (21.6)0.000301
0.0556 (18)0.000177
0.0648 (15.4286)6.1e-05
0.0741 (13.5)3.1e-05
0.0833 (12)3e-06
0.0926 (10.8)3.4e-05
0.1019 (9.8182)3.7e-05
0.1111 (9)0
0.1204 (8.3077)1.3e-05
0.1296 (7.7143)0.000109
0.1389 (7.2)4.7e-05
0.1481 (6.75)4e-06
0.1574 (6.3529)4.8e-05
0.1667 (6)2e-06
0.1759 (5.6842)1e-05
0.1852 (5.4)5.7e-05
0.1944 (5.1429)3.5e-05
0.2037 (4.9091)4.1e-05
0.213 (4.6957)0.000105
0.2222 (4.5)0.000291
0.2315 (4.32)0.000139
0.2407 (4.1538)8.2e-05
0.25 (4)4.8e-05
0.2593 (3.8571)1.9e-05
0.2685 (3.7241)6.2e-05
0.2778 (3.6)7.1e-05
0.287 (3.4839)6e-06
0.2963 (3.375)8.1e-05
0.3056 (3.2727)0.000237
0.3148 (3.1765)0.00015
0.3241 (3.0857)2.6e-05
0.3333 (3)0.000109
0.3426 (2.9189)0.001292
0.3519 (2.8421)0.002451
0.3611 (2.7692)0.000559
0.3704 (2.7)4.9e-05
0.3796 (2.6341)3e-04
0.3889 (2.5714)0.001128
0.3981 (2.5116)0.000165
0.4074 (2.4545)0.000149
0.4167 (2.4)5.5e-05
0.4259 (2.3478)0.000318
0.4352 (2.2979)0.000584
0.4444 (2.25)0.000118
0.4537 (2.2041)3.9e-05
0.463 (2.16)5.4e-05
0.4722 (2.1176)0.000327
0.4815 (2.0769)0.000741
0.4907 (2.0377)2e-06
0.5 (2)4.7e-05



Parameters (Session):
par1 = -0.6 ; par2 = 1 ; par3 = 1 ; par4 = 12 ;
Parameters (R input):
par1 = -0.6 ; par2 = 1 ; par3 = 1 ; par4 = 12 ;
R code (references can be found in the software module):
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')