FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_spectrum.wasp
Title produced by softwareSpectral Analysis
Date of computationWed, 21 Dec 2011 04:47:42 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2011/Dec/21/t1324460883csq1xrhtwhn8zq8.htm/, Retrieved Tue, 07 May 2024 16:50:17 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=158397, Retrieved Tue, 07 May 2024 16:50:17 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact121

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [web traffic] [2010-10-19 15:13:07] [b98453cac15ba1066b407e146608df68]
- RMP   [Variance Reduction Matrix] [Traffic] [2010-11-29 09:57:15] [b98453cac15ba1066b407e146608df68]
- RM      [Standard Deviation-Mean Plot] [Traffic] [2010-11-29 11:05:08] [b98453cac15ba1066b407e146608df68]
- RMP       [ARIMA Forecasting] [Traffic] [2010-11-29 21:10:32] [b98453cac15ba1066b407e146608df68]
- R PD        [ARIMA Forecasting] [] [2011-12-06 10:39:07] [aba4febe8a2e49e81bdc61a6c01f5c21]
-   PD          [ARIMA Forecasting] [] [2011-12-20 15:47:34] [aba4febe8a2e49e81bdc61a6c01f5c21]
- R               [ARIMA Forecasting] [ARIMA Forecasting CV] [2011-12-20 15:48:10] [aba4febe8a2e49e81bdc61a6c01f5c21]
- RMPD                [Spectral Analysis] [Paper spectral an...] [2011-12-21 09:47:42] [3627de22d386f4cb93d383ef7c1ade7f] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
492
436
694
1137
380
179
2354
111
740
595
809
693
738
1184
713
1729
844
1298
514
689
837
1330
491
622
1332
1043
1082
636
586
1170
973
721
863
343
1278
1186
1334
652
284
1273
1518
715
671
486
1022
2084
330
658
1385
930
620
218
840
255
454
1149
684
1190
1079
883
1331
1159
1217
946
579
474
626
843
893
633
873
385
729
774
769
996
1194
575
725
706
665
1259
653
694
437
822
458
1545
987
1051
838
703
613
1128
967
617
654
805
1355
1456
878
887
663
214
733
830
1174
1068
413
946
657
690
156
779
192
461
1213
146
866
200
1290
715
514
697
276
752
1021
481
1626
884
1187
488
403
977
1525
551
1807
723
632
898
621
1606
811
716
1001
732
1024
831
0
85
0
0
0
0
773
1128
0
0
74
259
69
301
0
668

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net

\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 & 1 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158397&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]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=158397&T=0

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

As an alternative you can also use a QR Code:  
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 time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net






Raw Periodogram
ParameterValue
Box-Cox transformation parameter (lambda)1
Degree of non-seasonal differencing (d)0
Degree of seasonal differencing (D)0
Seasonal Period (s)12
Frequency (Period)Spectrum
0.0056 (180)126048.016921
0.0111 (90)87746.346413
0.0167 (60)103101.013852
0.0222 (45)488662.18225
0.0278 (36)590165.139555
0.0333 (30)147394.959135
0.0389 (25.7143)134649.763093
0.0444 (22.5)3565.764475
0.05 (20)293592.328915
0.0556 (18)8789.279055
0.0611 (16.3636)247975.008222
0.0667 (15)53877.201596
0.0722 (13.8462)258926.26555
0.0778 (12.8571)507.39578
0.0833 (12)262238.254044
0.0889 (11.25)407.772544
0.0944 (10.5882)207244.133542
0.1 (10)300249.942558
0.1056 (9.4737)303669.411647
0.1111 (9)94137.833338
0.1167 (8.5714)60468.614661
0.1222 (8.1818)85274.872905
0.1278 (7.8261)39852.679286
0.1333 (7.5)92316.821604
0.1389 (7.2)52714.458805
0.1444 (6.9231)39657.063282
0.15 (6.6667)464168.858066
0.1556 (6.4286)71262.063965
0.1611 (6.2069)120835.151073
0.1667 (6)353746.224518
0.1722 (5.8065)138288.635785
0.1778 (5.625)4612.391065
0.1833 (5.4545)56004.740802
0.1889 (5.2941)257374.169457
0.1944 (5.1429)35218.115022
0.2 (5)456431.574096
0.2056 (4.8649)172297.216023
0.2111 (4.7368)298810.750365
0.2167 (4.6154)236453.095795
0.2222 (4.5)212793.395376
0.2278 (4.3902)192628.512018
0.2333 (4.2857)48014.368818
0.2389 (4.186)73917.347396
0.2444 (4.0909)147296.754438
0.25 (4)103917.922625
0.2556 (3.913)89046.301733
0.2611 (3.8298)266709.456815
0.2667 (3.75)2148.815565
0.2722 (3.6735)14791.452477
0.2778 (3.6)7055.909632
0.2833 (3.5294)221444.152505
0.2889 (3.4615)13606.272391
0.2944 (3.3962)89774.784122
0.3 (3.3333)3365.139901
0.3056 (3.2727)78684.670213
0.3111 (3.2143)67178.127407
0.3167 (3.1579)2793.649462
0.3222 (3.1034)46139.527344
0.3278 (3.0508)230595.147833
0.3333 (3)135321.192401
0.3389 (2.9508)79571.784242
0.3444 (2.9032)105020.009703
0.35 (2.8571)53405.409381
0.3556 (2.8125)131782.68224
0.3611 (2.7692)95639.815063
0.3667 (2.7273)30716.024607
0.3722 (2.6866)389045.618711
0.3778 (2.6471)47184.579921
0.3833 (2.6087)793390.261934
0.3889 (2.5714)45328.402685
0.3944 (2.5352)474787.111738
0.4 (2.5)22280.803047
0.4056 (2.4658)165762.391645
0.4111 (2.4324)60661.859714
0.4167 (2.4)45480.287005
0.4222 (2.3684)25411.994642
0.4278 (2.3377)476402.411871
0.4333 (2.3077)20616.748218
0.4389 (2.2785)161759.216864
0.4444 (2.25)127967.695235
0.45 (2.2222)31807.569357
0.4556 (2.1951)234663.274187
0.4611 (2.1687)79674.925099
0.4667 (2.1429)264840.296213
0.4722 (2.1176)97861.492153
0.4778 (2.093)119508.714391
0.4833 (2.069)174859.261093
0.4889 (2.0455)169785.199265
0.4944 (2.0225)52068.783679
0.5 (2)5976.355201

\begin{tabular}{lllllllll}
\hline
Raw Periodogram \tabularnewline
Parameter & Value \tabularnewline
Box-Cox transformation parameter (lambda) & 1 \tabularnewline
Degree of non-seasonal differencing (d) & 0 \tabularnewline
Degree of seasonal differencing (D) & 0 \tabularnewline
Seasonal Period (s) & 12 \tabularnewline
Frequency (Period) & Spectrum \tabularnewline
0.0056 (180) & 126048.016921 \tabularnewline
0.0111 (90) & 87746.346413 \tabularnewline
0.0167 (60) & 103101.013852 \tabularnewline
0.0222 (45) & 488662.18225 \tabularnewline
0.0278 (36) & 590165.139555 \tabularnewline
0.0333 (30) & 147394.959135 \tabularnewline
0.0389 (25.7143) & 134649.763093 \tabularnewline
0.0444 (22.5) & 3565.764475 \tabularnewline
0.05 (20) & 293592.328915 \tabularnewline
0.0556 (18) & 8789.279055 \tabularnewline
0.0611 (16.3636) & 247975.008222 \tabularnewline
0.0667 (15) & 53877.201596 \tabularnewline
0.0722 (13.8462) & 258926.26555 \tabularnewline
0.0778 (12.8571) & 507.39578 \tabularnewline
0.0833 (12) & 262238.254044 \tabularnewline
0.0889 (11.25) & 407.772544 \tabularnewline
0.0944 (10.5882) & 207244.133542 \tabularnewline
0.1 (10) & 300249.942558 \tabularnewline
0.1056 (9.4737) & 303669.411647 \tabularnewline
0.1111 (9) & 94137.833338 \tabularnewline
0.1167 (8.5714) & 60468.614661 \tabularnewline
0.1222 (8.1818) & 85274.872905 \tabularnewline
0.1278 (7.8261) & 39852.679286 \tabularnewline
0.1333 (7.5) & 92316.821604 \tabularnewline
0.1389 (7.2) & 52714.458805 \tabularnewline
0.1444 (6.9231) & 39657.063282 \tabularnewline
0.15 (6.6667) & 464168.858066 \tabularnewline
0.1556 (6.4286) & 71262.063965 \tabularnewline
0.1611 (6.2069) & 120835.151073 \tabularnewline
0.1667 (6) & 353746.224518 \tabularnewline
0.1722 (5.8065) & 138288.635785 \tabularnewline
0.1778 (5.625) & 4612.391065 \tabularnewline
0.1833 (5.4545) & 56004.740802 \tabularnewline
0.1889 (5.2941) & 257374.169457 \tabularnewline
0.1944 (5.1429) & 35218.115022 \tabularnewline
0.2 (5) & 456431.574096 \tabularnewline
0.2056 (4.8649) & 172297.216023 \tabularnewline
0.2111 (4.7368) & 298810.750365 \tabularnewline
0.2167 (4.6154) & 236453.095795 \tabularnewline
0.2222 (4.5) & 212793.395376 \tabularnewline
0.2278 (4.3902) & 192628.512018 \tabularnewline
0.2333 (4.2857) & 48014.368818 \tabularnewline
0.2389 (4.186) & 73917.347396 \tabularnewline
0.2444 (4.0909) & 147296.754438 \tabularnewline
0.25 (4) & 103917.922625 \tabularnewline
0.2556 (3.913) & 89046.301733 \tabularnewline
0.2611 (3.8298) & 266709.456815 \tabularnewline
0.2667 (3.75) & 2148.815565 \tabularnewline
0.2722 (3.6735) & 14791.452477 \tabularnewline
0.2778 (3.6) & 7055.909632 \tabularnewline
0.2833 (3.5294) & 221444.152505 \tabularnewline
0.2889 (3.4615) & 13606.272391 \tabularnewline
0.2944 (3.3962) & 89774.784122 \tabularnewline
0.3 (3.3333) & 3365.139901 \tabularnewline
0.3056 (3.2727) & 78684.670213 \tabularnewline
0.3111 (3.2143) & 67178.127407 \tabularnewline
0.3167 (3.1579) & 2793.649462 \tabularnewline
0.3222 (3.1034) & 46139.527344 \tabularnewline
0.3278 (3.0508) & 230595.147833 \tabularnewline
0.3333 (3) & 135321.192401 \tabularnewline
0.3389 (2.9508) & 79571.784242 \tabularnewline
0.3444 (2.9032) & 105020.009703 \tabularnewline
0.35 (2.8571) & 53405.409381 \tabularnewline
0.3556 (2.8125) & 131782.68224 \tabularnewline
0.3611 (2.7692) & 95639.815063 \tabularnewline
0.3667 (2.7273) & 30716.024607 \tabularnewline
0.3722 (2.6866) & 389045.618711 \tabularnewline
0.3778 (2.6471) & 47184.579921 \tabularnewline
0.3833 (2.6087) & 793390.261934 \tabularnewline
0.3889 (2.5714) & 45328.402685 \tabularnewline
0.3944 (2.5352) & 474787.111738 \tabularnewline
0.4 (2.5) & 22280.803047 \tabularnewline
0.4056 (2.4658) & 165762.391645 \tabularnewline
0.4111 (2.4324) & 60661.859714 \tabularnewline
0.4167 (2.4) & 45480.287005 \tabularnewline
0.4222 (2.3684) & 25411.994642 \tabularnewline
0.4278 (2.3377) & 476402.411871 \tabularnewline
0.4333 (2.3077) & 20616.748218 \tabularnewline
0.4389 (2.2785) & 161759.216864 \tabularnewline
0.4444 (2.25) & 127967.695235 \tabularnewline
0.45 (2.2222) & 31807.569357 \tabularnewline
0.4556 (2.1951) & 234663.274187 \tabularnewline
0.4611 (2.1687) & 79674.925099 \tabularnewline
0.4667 (2.1429) & 264840.296213 \tabularnewline
0.4722 (2.1176) & 97861.492153 \tabularnewline
0.4778 (2.093) & 119508.714391 \tabularnewline
0.4833 (2.069) & 174859.261093 \tabularnewline
0.4889 (2.0455) & 169785.199265 \tabularnewline
0.4944 (2.0225) & 52068.783679 \tabularnewline
0.5 (2) & 5976.355201 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=158397&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]1[/C][/ROW]
[ROW][C]Degree of non-seasonal differencing (d)[/C][C]0[/C][/ROW]
[ROW][C]Degree of seasonal differencing (D)[/C][C]0[/C][/ROW]
[ROW][C]Seasonal Period (s)[/C][C]12[/C][/ROW]
[ROW][C]Frequency (Period)[/C][C]Spectrum[/C][/ROW]
[ROW][C]0.0056 (180)[/C][C]126048.016921[/C][/ROW]
[ROW][C]0.0111 (90)[/C][C]87746.346413[/C][/ROW]
[ROW][C]0.0167 (60)[/C][C]103101.013852[/C][/ROW]
[ROW][C]0.0222 (45)[/C][C]488662.18225[/C][/ROW]
[ROW][C]0.0278 (36)[/C][C]590165.139555[/C][/ROW]
[ROW][C]0.0333 (30)[/C][C]147394.959135[/C][/ROW]
[ROW][C]0.0389 (25.7143)[/C][C]134649.763093[/C][/ROW]
[ROW][C]0.0444 (22.5)[/C][C]3565.764475[/C][/ROW]
[ROW][C]0.05 (20)[/C][C]293592.328915[/C][/ROW]
[ROW][C]0.0556 (18)[/C][C]8789.279055[/C][/ROW]
[ROW][C]0.0611 (16.3636)[/C][C]247975.008222[/C][/ROW]
[ROW][C]0.0667 (15)[/C][C]53877.201596[/C][/ROW]
[ROW][C]0.0722 (13.8462)[/C][C]258926.26555[/C][/ROW]
[ROW][C]0.0778 (12.8571)[/C][C]507.39578[/C][/ROW]
[ROW][C]0.0833 (12)[/C][C]262238.254044[/C][/ROW]
[ROW][C]0.0889 (11.25)[/C][C]407.772544[/C][/ROW]
[ROW][C]0.0944 (10.5882)[/C][C]207244.133542[/C][/ROW]
[ROW][C]0.1 (10)[/C][C]300249.942558[/C][/ROW]
[ROW][C]0.1056 (9.4737)[/C][C]303669.411647[/C][/ROW]
[ROW][C]0.1111 (9)[/C][C]94137.833338[/C][/ROW]
[ROW][C]0.1167 (8.5714)[/C][C]60468.614661[/C][/ROW]
[ROW][C]0.1222 (8.1818)[/C][C]85274.872905[/C][/ROW]
[ROW][C]0.1278 (7.8261)[/C][C]39852.679286[/C][/ROW]
[ROW][C]0.1333 (7.5)[/C][C]92316.821604[/C][/ROW]
[ROW][C]0.1389 (7.2)[/C][C]52714.458805[/C][/ROW]
[ROW][C]0.1444 (6.9231)[/C][C]39657.063282[/C][/ROW]
[ROW][C]0.15 (6.6667)[/C][C]464168.858066[/C][/ROW]
[ROW][C]0.1556 (6.4286)[/C][C]71262.063965[/C][/ROW]
[ROW][C]0.1611 (6.2069)[/C][C]120835.151073[/C][/ROW]
[ROW][C]0.1667 (6)[/C][C]353746.224518[/C][/ROW]
[ROW][C]0.1722 (5.8065)[/C][C]138288.635785[/C][/ROW]
[ROW][C]0.1778 (5.625)[/C][C]4612.391065[/C][/ROW]
[ROW][C]0.1833 (5.4545)[/C][C]56004.740802[/C][/ROW]
[ROW][C]0.1889 (5.2941)[/C][C]257374.169457[/C][/ROW]
[ROW][C]0.1944 (5.1429)[/C][C]35218.115022[/C][/ROW]
[ROW][C]0.2 (5)[/C][C]456431.574096[/C][/ROW]
[ROW][C]0.2056 (4.8649)[/C][C]172297.216023[/C][/ROW]
[ROW][C]0.2111 (4.7368)[/C][C]298810.750365[/C][/ROW]
[ROW][C]0.2167 (4.6154)[/C][C]236453.095795[/C][/ROW]
[ROW][C]0.2222 (4.5)[/C][C]212793.395376[/C][/ROW]
[ROW][C]0.2278 (4.3902)[/C][C]192628.512018[/C][/ROW]
[ROW][C]0.2333 (4.2857)[/C][C]48014.368818[/C][/ROW]
[ROW][C]0.2389 (4.186)[/C][C]73917.347396[/C][/ROW]
[ROW][C]0.2444 (4.0909)[/C][C]147296.754438[/C][/ROW]
[ROW][C]0.25 (4)[/C][C]103917.922625[/C][/ROW]
[ROW][C]0.2556 (3.913)[/C][C]89046.301733[/C][/ROW]
[ROW][C]0.2611 (3.8298)[/C][C]266709.456815[/C][/ROW]
[ROW][C]0.2667 (3.75)[/C][C]2148.815565[/C][/ROW]
[ROW][C]0.2722 (3.6735)[/C][C]14791.452477[/C][/ROW]
[ROW][C]0.2778 (3.6)[/C][C]7055.909632[/C][/ROW]
[ROW][C]0.2833 (3.5294)[/C][C]221444.152505[/C][/ROW]
[ROW][C]0.2889 (3.4615)[/C][C]13606.272391[/C][/ROW]
[ROW][C]0.2944 (3.3962)[/C][C]89774.784122[/C][/ROW]
[ROW][C]0.3 (3.3333)[/C][C]3365.139901[/C][/ROW]
[ROW][C]0.3056 (3.2727)[/C][C]78684.670213[/C][/ROW]
[ROW][C]0.3111 (3.2143)[/C][C]67178.127407[/C][/ROW]
[ROW][C]0.3167 (3.1579)[/C][C]2793.649462[/C][/ROW]
[ROW][C]0.3222 (3.1034)[/C][C]46139.527344[/C][/ROW]
[ROW][C]0.3278 (3.0508)[/C][C]230595.147833[/C][/ROW]
[ROW][C]0.3333 (3)[/C][C]135321.192401[/C][/ROW]
[ROW][C]0.3389 (2.9508)[/C][C]79571.784242[/C][/ROW]
[ROW][C]0.3444 (2.9032)[/C][C]105020.009703[/C][/ROW]
[ROW][C]0.35 (2.8571)[/C][C]53405.409381[/C][/ROW]
[ROW][C]0.3556 (2.8125)[/C][C]131782.68224[/C][/ROW]
[ROW][C]0.3611 (2.7692)[/C][C]95639.815063[/C][/ROW]
[ROW][C]0.3667 (2.7273)[/C][C]30716.024607[/C][/ROW]
[ROW][C]0.3722 (2.6866)[/C][C]389045.618711[/C][/ROW]
[ROW][C]0.3778 (2.6471)[/C][C]47184.579921[/C][/ROW]
[ROW][C]0.3833 (2.6087)[/C][C]793390.261934[/C][/ROW]
[ROW][C]0.3889 (2.5714)[/C][C]45328.402685[/C][/ROW]
[ROW][C]0.3944 (2.5352)[/C][C]474787.111738[/C][/ROW]
[ROW][C]0.4 (2.5)[/C][C]22280.803047[/C][/ROW]
[ROW][C]0.4056 (2.4658)[/C][C]165762.391645[/C][/ROW]
[ROW][C]0.4111 (2.4324)[/C][C]60661.859714[/C][/ROW]
[ROW][C]0.4167 (2.4)[/C][C]45480.287005[/C][/ROW]
[ROW][C]0.4222 (2.3684)[/C][C]25411.994642[/C][/ROW]
[ROW][C]0.4278 (2.3377)[/C][C]476402.411871[/C][/ROW]
[ROW][C]0.4333 (2.3077)[/C][C]20616.748218[/C][/ROW]
[ROW][C]0.4389 (2.2785)[/C][C]161759.216864[/C][/ROW]
[ROW][C]0.4444 (2.25)[/C][C]127967.695235[/C][/ROW]
[ROW][C]0.45 (2.2222)[/C][C]31807.569357[/C][/ROW]
[ROW][C]0.4556 (2.1951)[/C][C]234663.274187[/C][/ROW]
[ROW][C]0.4611 (2.1687)[/C][C]79674.925099[/C][/ROW]
[ROW][C]0.4667 (2.1429)[/C][C]264840.296213[/C][/ROW]
[ROW][C]0.4722 (2.1176)[/C][C]97861.492153[/C][/ROW]
[ROW][C]0.4778 (2.093)[/C][C]119508.714391[/C][/ROW]
[ROW][C]0.4833 (2.069)[/C][C]174859.261093[/C][/ROW]
[ROW][C]0.4889 (2.0455)[/C][C]169785.199265[/C][/ROW]
[ROW][C]0.4944 (2.0225)[/C][C]52068.783679[/C][/ROW]
[ROW][C]0.5 (2)[/C][C]5976.355201[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=158397&T=1

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

As an alternative you can also use a QR Code:  
QR Code


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

Raw Periodogram
ParameterValue
Box-Cox transformation parameter (lambda)1
Degree of non-seasonal differencing (d)0
Degree of seasonal differencing (D)0
Seasonal Period (s)12
Frequency (Period)Spectrum
0.0056 (180)126048.016921
0.0111 (90)87746.346413
0.0167 (60)103101.013852
0.0222 (45)488662.18225
0.0278 (36)590165.139555
0.0333 (30)147394.959135
0.0389 (25.7143)134649.763093
0.0444 (22.5)3565.764475
0.05 (20)293592.328915
0.0556 (18)8789.279055
0.0611 (16.3636)247975.008222
0.0667 (15)53877.201596
0.0722 (13.8462)258926.26555
0.0778 (12.8571)507.39578
0.0833 (12)262238.254044
0.0889 (11.25)407.772544
0.0944 (10.5882)207244.133542
0.1 (10)300249.942558
0.1056 (9.4737)303669.411647
0.1111 (9)94137.833338
0.1167 (8.5714)60468.614661
0.1222 (8.1818)85274.872905
0.1278 (7.8261)39852.679286
0.1333 (7.5)92316.821604
0.1389 (7.2)52714.458805
0.1444 (6.9231)39657.063282
0.15 (6.6667)464168.858066
0.1556 (6.4286)71262.063965
0.1611 (6.2069)120835.151073
0.1667 (6)353746.224518
0.1722 (5.8065)138288.635785
0.1778 (5.625)4612.391065
0.1833 (5.4545)56004.740802
0.1889 (5.2941)257374.169457
0.1944 (5.1429)35218.115022
0.2 (5)456431.574096
0.2056 (4.8649)172297.216023
0.2111 (4.7368)298810.750365
0.2167 (4.6154)236453.095795
0.2222 (4.5)212793.395376
0.2278 (4.3902)192628.512018
0.2333 (4.2857)48014.368818
0.2389 (4.186)73917.347396
0.2444 (4.0909)147296.754438
0.25 (4)103917.922625
0.2556 (3.913)89046.301733
0.2611 (3.8298)266709.456815
0.2667 (3.75)2148.815565
0.2722 (3.6735)14791.452477
0.2778 (3.6)7055.909632
0.2833 (3.5294)221444.152505
0.2889 (3.4615)13606.272391
0.2944 (3.3962)89774.784122
0.3 (3.3333)3365.139901
0.3056 (3.2727)78684.670213
0.3111 (3.2143)67178.127407
0.3167 (3.1579)2793.649462
0.3222 (3.1034)46139.527344
0.3278 (3.0508)230595.147833
0.3333 (3)135321.192401
0.3389 (2.9508)79571.784242
0.3444 (2.9032)105020.009703
0.35 (2.8571)53405.409381
0.3556 (2.8125)131782.68224
0.3611 (2.7692)95639.815063
0.3667 (2.7273)30716.024607
0.3722 (2.6866)389045.618711
0.3778 (2.6471)47184.579921
0.3833 (2.6087)793390.261934
0.3889 (2.5714)45328.402685
0.3944 (2.5352)474787.111738
0.4 (2.5)22280.803047
0.4056 (2.4658)165762.391645
0.4111 (2.4324)60661.859714
0.4167 (2.4)45480.287005
0.4222 (2.3684)25411.994642
0.4278 (2.3377)476402.411871
0.4333 (2.3077)20616.748218
0.4389 (2.2785)161759.216864
0.4444 (2.25)127967.695235
0.45 (2.2222)31807.569357
0.4556 (2.1951)234663.274187
0.4611 (2.1687)79674.925099
0.4667 (2.1429)264840.296213
0.4722 (2.1176)97861.492153
0.4778 (2.093)119508.714391
0.4833 (2.069)174859.261093
0.4889 (2.0455)169785.199265
0.4944 (2.0225)52068.783679
0.5 (2)5976.355201


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 1 ; par2 = 0 ; par3 = 0 ; par4 = 12 ;
Parameters (R input):
par1 = 1 ; par2 = 0 ; par3 = 0 ; 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')