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 computationThu, 22 Dec 2011 16:43:51 -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/22/t1324590238qgc5lw2nzczcfdc.htm/, Retrieved Fri, 03 May 2024 03:50:23 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=160016, Retrieved Fri, 03 May 2024 03:50:23 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact97
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Spectral Analysis] [] [2011-12-22 21:43:51] [c7041fab4904771a5085f5eb0f28763f] [Current]
Feedback Forum

Post a new message
Dataseries X:
4581945
3874038
4086290
4364364
3793586
4533914
4823043
3981535
4746356
5284534
4264830
3924674
3734753
3762290
3609739
3877594
3636415
3578195
3604342
3459513
3366571
3371277
3724848
3350830
3305159
3390736
3349758
3253655
3734250
3455433
2966726
2993716
3009320
3169713
3170061
3368934
3292638
3337344
3208306
3359130
3223078
3437159
3400156
3657576
3765613
3481921
3604800
3981340
3734078
4018173
3887417
3919880
4014466
4197758
3896531
3964742
4201847
4050512
3997402
4314479
4925744
5130631
4444855
3967319
3931250
4235952
4169219
3779064
3558810
3699466
3650693
3525633
3470276
3859094
3661155
3356365
3344440
3338684
3404294
3289319
3469252
3571850
3639914
3091730
3078149
3188115
3246082
3486992
3378187
3282306
3288345
3325749
3352262
3531954
3722622
3809365
3750617
3615286
3696556
4123959
4136163
3933392
4035576
4551202
4032195
3970893
4489016
5426127
4578224
4126390
4892100
4128697
4408721
4199465
4074767
4161758
3891319
4470302
4283111
3845962
3911471
3798478
3644313
3784029
3647134
3994662
3607836
3566008
3511412
3258665
3486573
3369443
3465544
3905224
3733881
3220642
3225812
3354461
3352261
3450652




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Herman Ole Andreas Wold' @ wold.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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160016&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=160016&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160016&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 time1 seconds
R Server'Herman Ole Andreas Wold' @ wold.wessa.net







Raw Periodogram
ParameterValue
Box-Cox transformation parameter (lambda)1
Degree of non-seasonal differencing (d)1
Degree of seasonal differencing (D)0
Seasonal Period (s)4
Frequency (Period)Spectrum
0.0069 (144)17796325530.5265
0.0139 (72)30166487472.9808
0.0208 (48)112919744404.378
0.0278 (36)7140775319.67264
0.0347 (28.8)6241583526.85695
0.0417 (24)11721214034.0105
0.0486 (20.5714)10089904148.5699
0.0556 (18)24900485711.1848
0.0625 (16)18011795986.4824
0.0694 (14.4)29653852161.6141
0.0764 (13.0909)8892560030.11591
0.0833 (12)18087647424.6525
0.0903 (11.0769)39959567053.9096
0.0972 (10.2857)12746688335.9634
0.1042 (9.6)4183545682.09172
0.1111 (9)139447883891.959
0.1181 (8.4706)21152561381.3764
0.125 (8)17588185133.7457
0.1319 (7.5789)7026950950.78489
0.1389 (7.2)106307954492.393
0.1458 (6.8571)7590218446.94402
0.1528 (6.5455)373493247393.238
0.1597 (6.2609)25466421984.2794
0.1667 (6)26946795755.5688
0.1736 (5.76)96891530024.6822
0.1806 (5.5385)30587823457.1856
0.1875 (5.3333)48957595877.0172
0.1944 (5.1429)141860714990.495
0.2014 (4.9655)19529436877.7559
0.2083 (4.8)32415792378.558
0.2153 (4.6452)230821189945.418
0.2222 (4.5)2031350275.89431
0.2292 (4.3636)121914662996.816
0.2361 (4.2353)468270991934.135
0.2431 (4.1143)142094392918.942
0.25 (4)53985617129.2507
0.2569 (3.8919)176159302204.096
0.2639 (3.7895)214050387722.242
0.2708 (3.6923)188744283704.487
0.2778 (3.6)178263460336.151
0.2847 (3.5122)267655042998.902
0.2917 (3.4286)94556011005.31
0.2986 (3.3488)199438518607.163
0.3056 (3.2727)266143771218.668
0.3125 (3.2)96987566163.8832
0.3194 (3.1304)242697090954.246
0.3264 (3.0638)24794050155.234
0.3333 (3)38512821760.1313
0.3403 (2.9388)23934249117.5013
0.3472 (2.88)88394126722.6725
0.3542 (2.8235)59276895952.981
0.3611 (2.7692)2962949948.99698
0.3681 (2.717)267771961990.626
0.375 (2.6667)34021396098.6089
0.3819 (2.6182)147974650025.891
0.3889 (2.5714)152606791489.79
0.3958 (2.5263)231681880125.029
0.4028 (2.4828)196119235300.673
0.4097 (2.4407)113254948118.311
0.4167 (2.4)488369798.63403
0.4236 (2.3607)98250047254.277
0.4306 (2.3226)57074052521.3597
0.4375 (2.2857)28875396130.3994
0.4444 (2.25)241133347924.134
0.4514 (2.2154)27508381542.5212
0.4583 (2.1818)6462639915.84464
0.4653 (2.1493)188757030555.57
0.4722 (2.1176)6306046788.03387
0.4792 (2.087)32952088372.4891
0.4861 (2.0571)32648809207.8726
0.4931 (2.0282)9073718414.30262
0.5 (2)104545034586.704

\begin{tabular}{lllllllll}
\hline
Raw Periodogram \tabularnewline
Parameter & Value \tabularnewline
Box-Cox transformation parameter (lambda) & 1 \tabularnewline
Degree of non-seasonal differencing (d) & 1 \tabularnewline
Degree of seasonal differencing (D) & 0 \tabularnewline
Seasonal Period (s) & 4 \tabularnewline
Frequency (Period) & Spectrum \tabularnewline
0.0069 (144) & 17796325530.5265 \tabularnewline
0.0139 (72) & 30166487472.9808 \tabularnewline
0.0208 (48) & 112919744404.378 \tabularnewline
0.0278 (36) & 7140775319.67264 \tabularnewline
0.0347 (28.8) & 6241583526.85695 \tabularnewline
0.0417 (24) & 11721214034.0105 \tabularnewline
0.0486 (20.5714) & 10089904148.5699 \tabularnewline
0.0556 (18) & 24900485711.1848 \tabularnewline
0.0625 (16) & 18011795986.4824 \tabularnewline
0.0694 (14.4) & 29653852161.6141 \tabularnewline
0.0764 (13.0909) & 8892560030.11591 \tabularnewline
0.0833 (12) & 18087647424.6525 \tabularnewline
0.0903 (11.0769) & 39959567053.9096 \tabularnewline
0.0972 (10.2857) & 12746688335.9634 \tabularnewline
0.1042 (9.6) & 4183545682.09172 \tabularnewline
0.1111 (9) & 139447883891.959 \tabularnewline
0.1181 (8.4706) & 21152561381.3764 \tabularnewline
0.125 (8) & 17588185133.7457 \tabularnewline
0.1319 (7.5789) & 7026950950.78489 \tabularnewline
0.1389 (7.2) & 106307954492.393 \tabularnewline
0.1458 (6.8571) & 7590218446.94402 \tabularnewline
0.1528 (6.5455) & 373493247393.238 \tabularnewline
0.1597 (6.2609) & 25466421984.2794 \tabularnewline
0.1667 (6) & 26946795755.5688 \tabularnewline
0.1736 (5.76) & 96891530024.6822 \tabularnewline
0.1806 (5.5385) & 30587823457.1856 \tabularnewline
0.1875 (5.3333) & 48957595877.0172 \tabularnewline
0.1944 (5.1429) & 141860714990.495 \tabularnewline
0.2014 (4.9655) & 19529436877.7559 \tabularnewline
0.2083 (4.8) & 32415792378.558 \tabularnewline
0.2153 (4.6452) & 230821189945.418 \tabularnewline
0.2222 (4.5) & 2031350275.89431 \tabularnewline
0.2292 (4.3636) & 121914662996.816 \tabularnewline
0.2361 (4.2353) & 468270991934.135 \tabularnewline
0.2431 (4.1143) & 142094392918.942 \tabularnewline
0.25 (4) & 53985617129.2507 \tabularnewline
0.2569 (3.8919) & 176159302204.096 \tabularnewline
0.2639 (3.7895) & 214050387722.242 \tabularnewline
0.2708 (3.6923) & 188744283704.487 \tabularnewline
0.2778 (3.6) & 178263460336.151 \tabularnewline
0.2847 (3.5122) & 267655042998.902 \tabularnewline
0.2917 (3.4286) & 94556011005.31 \tabularnewline
0.2986 (3.3488) & 199438518607.163 \tabularnewline
0.3056 (3.2727) & 266143771218.668 \tabularnewline
0.3125 (3.2) & 96987566163.8832 \tabularnewline
0.3194 (3.1304) & 242697090954.246 \tabularnewline
0.3264 (3.0638) & 24794050155.234 \tabularnewline
0.3333 (3) & 38512821760.1313 \tabularnewline
0.3403 (2.9388) & 23934249117.5013 \tabularnewline
0.3472 (2.88) & 88394126722.6725 \tabularnewline
0.3542 (2.8235) & 59276895952.981 \tabularnewline
0.3611 (2.7692) & 2962949948.99698 \tabularnewline
0.3681 (2.717) & 267771961990.626 \tabularnewline
0.375 (2.6667) & 34021396098.6089 \tabularnewline
0.3819 (2.6182) & 147974650025.891 \tabularnewline
0.3889 (2.5714) & 152606791489.79 \tabularnewline
0.3958 (2.5263) & 231681880125.029 \tabularnewline
0.4028 (2.4828) & 196119235300.673 \tabularnewline
0.4097 (2.4407) & 113254948118.311 \tabularnewline
0.4167 (2.4) & 488369798.63403 \tabularnewline
0.4236 (2.3607) & 98250047254.277 \tabularnewline
0.4306 (2.3226) & 57074052521.3597 \tabularnewline
0.4375 (2.2857) & 28875396130.3994 \tabularnewline
0.4444 (2.25) & 241133347924.134 \tabularnewline
0.4514 (2.2154) & 27508381542.5212 \tabularnewline
0.4583 (2.1818) & 6462639915.84464 \tabularnewline
0.4653 (2.1493) & 188757030555.57 \tabularnewline
0.4722 (2.1176) & 6306046788.03387 \tabularnewline
0.4792 (2.087) & 32952088372.4891 \tabularnewline
0.4861 (2.0571) & 32648809207.8726 \tabularnewline
0.4931 (2.0282) & 9073718414.30262 \tabularnewline
0.5 (2) & 104545034586.704 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=160016&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]1[/C][/ROW]
[ROW][C]Degree of seasonal differencing (D)[/C][C]0[/C][/ROW]
[ROW][C]Seasonal Period (s)[/C][C]4[/C][/ROW]
[ROW][C]Frequency (Period)[/C][C]Spectrum[/C][/ROW]
[ROW][C]0.0069 (144)[/C][C]17796325530.5265[/C][/ROW]
[ROW][C]0.0139 (72)[/C][C]30166487472.9808[/C][/ROW]
[ROW][C]0.0208 (48)[/C][C]112919744404.378[/C][/ROW]
[ROW][C]0.0278 (36)[/C][C]7140775319.67264[/C][/ROW]
[ROW][C]0.0347 (28.8)[/C][C]6241583526.85695[/C][/ROW]
[ROW][C]0.0417 (24)[/C][C]11721214034.0105[/C][/ROW]
[ROW][C]0.0486 (20.5714)[/C][C]10089904148.5699[/C][/ROW]
[ROW][C]0.0556 (18)[/C][C]24900485711.1848[/C][/ROW]
[ROW][C]0.0625 (16)[/C][C]18011795986.4824[/C][/ROW]
[ROW][C]0.0694 (14.4)[/C][C]29653852161.6141[/C][/ROW]
[ROW][C]0.0764 (13.0909)[/C][C]8892560030.11591[/C][/ROW]
[ROW][C]0.0833 (12)[/C][C]18087647424.6525[/C][/ROW]
[ROW][C]0.0903 (11.0769)[/C][C]39959567053.9096[/C][/ROW]
[ROW][C]0.0972 (10.2857)[/C][C]12746688335.9634[/C][/ROW]
[ROW][C]0.1042 (9.6)[/C][C]4183545682.09172[/C][/ROW]
[ROW][C]0.1111 (9)[/C][C]139447883891.959[/C][/ROW]
[ROW][C]0.1181 (8.4706)[/C][C]21152561381.3764[/C][/ROW]
[ROW][C]0.125 (8)[/C][C]17588185133.7457[/C][/ROW]
[ROW][C]0.1319 (7.5789)[/C][C]7026950950.78489[/C][/ROW]
[ROW][C]0.1389 (7.2)[/C][C]106307954492.393[/C][/ROW]
[ROW][C]0.1458 (6.8571)[/C][C]7590218446.94402[/C][/ROW]
[ROW][C]0.1528 (6.5455)[/C][C]373493247393.238[/C][/ROW]
[ROW][C]0.1597 (6.2609)[/C][C]25466421984.2794[/C][/ROW]
[ROW][C]0.1667 (6)[/C][C]26946795755.5688[/C][/ROW]
[ROW][C]0.1736 (5.76)[/C][C]96891530024.6822[/C][/ROW]
[ROW][C]0.1806 (5.5385)[/C][C]30587823457.1856[/C][/ROW]
[ROW][C]0.1875 (5.3333)[/C][C]48957595877.0172[/C][/ROW]
[ROW][C]0.1944 (5.1429)[/C][C]141860714990.495[/C][/ROW]
[ROW][C]0.2014 (4.9655)[/C][C]19529436877.7559[/C][/ROW]
[ROW][C]0.2083 (4.8)[/C][C]32415792378.558[/C][/ROW]
[ROW][C]0.2153 (4.6452)[/C][C]230821189945.418[/C][/ROW]
[ROW][C]0.2222 (4.5)[/C][C]2031350275.89431[/C][/ROW]
[ROW][C]0.2292 (4.3636)[/C][C]121914662996.816[/C][/ROW]
[ROW][C]0.2361 (4.2353)[/C][C]468270991934.135[/C][/ROW]
[ROW][C]0.2431 (4.1143)[/C][C]142094392918.942[/C][/ROW]
[ROW][C]0.25 (4)[/C][C]53985617129.2507[/C][/ROW]
[ROW][C]0.2569 (3.8919)[/C][C]176159302204.096[/C][/ROW]
[ROW][C]0.2639 (3.7895)[/C][C]214050387722.242[/C][/ROW]
[ROW][C]0.2708 (3.6923)[/C][C]188744283704.487[/C][/ROW]
[ROW][C]0.2778 (3.6)[/C][C]178263460336.151[/C][/ROW]
[ROW][C]0.2847 (3.5122)[/C][C]267655042998.902[/C][/ROW]
[ROW][C]0.2917 (3.4286)[/C][C]94556011005.31[/C][/ROW]
[ROW][C]0.2986 (3.3488)[/C][C]199438518607.163[/C][/ROW]
[ROW][C]0.3056 (3.2727)[/C][C]266143771218.668[/C][/ROW]
[ROW][C]0.3125 (3.2)[/C][C]96987566163.8832[/C][/ROW]
[ROW][C]0.3194 (3.1304)[/C][C]242697090954.246[/C][/ROW]
[ROW][C]0.3264 (3.0638)[/C][C]24794050155.234[/C][/ROW]
[ROW][C]0.3333 (3)[/C][C]38512821760.1313[/C][/ROW]
[ROW][C]0.3403 (2.9388)[/C][C]23934249117.5013[/C][/ROW]
[ROW][C]0.3472 (2.88)[/C][C]88394126722.6725[/C][/ROW]
[ROW][C]0.3542 (2.8235)[/C][C]59276895952.981[/C][/ROW]
[ROW][C]0.3611 (2.7692)[/C][C]2962949948.99698[/C][/ROW]
[ROW][C]0.3681 (2.717)[/C][C]267771961990.626[/C][/ROW]
[ROW][C]0.375 (2.6667)[/C][C]34021396098.6089[/C][/ROW]
[ROW][C]0.3819 (2.6182)[/C][C]147974650025.891[/C][/ROW]
[ROW][C]0.3889 (2.5714)[/C][C]152606791489.79[/C][/ROW]
[ROW][C]0.3958 (2.5263)[/C][C]231681880125.029[/C][/ROW]
[ROW][C]0.4028 (2.4828)[/C][C]196119235300.673[/C][/ROW]
[ROW][C]0.4097 (2.4407)[/C][C]113254948118.311[/C][/ROW]
[ROW][C]0.4167 (2.4)[/C][C]488369798.63403[/C][/ROW]
[ROW][C]0.4236 (2.3607)[/C][C]98250047254.277[/C][/ROW]
[ROW][C]0.4306 (2.3226)[/C][C]57074052521.3597[/C][/ROW]
[ROW][C]0.4375 (2.2857)[/C][C]28875396130.3994[/C][/ROW]
[ROW][C]0.4444 (2.25)[/C][C]241133347924.134[/C][/ROW]
[ROW][C]0.4514 (2.2154)[/C][C]27508381542.5212[/C][/ROW]
[ROW][C]0.4583 (2.1818)[/C][C]6462639915.84464[/C][/ROW]
[ROW][C]0.4653 (2.1493)[/C][C]188757030555.57[/C][/ROW]
[ROW][C]0.4722 (2.1176)[/C][C]6306046788.03387[/C][/ROW]
[ROW][C]0.4792 (2.087)[/C][C]32952088372.4891[/C][/ROW]
[ROW][C]0.4861 (2.0571)[/C][C]32648809207.8726[/C][/ROW]
[ROW][C]0.4931 (2.0282)[/C][C]9073718414.30262[/C][/ROW]
[ROW][C]0.5 (2)[/C][C]104545034586.704[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=160016&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=160016&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)1
Degree of non-seasonal differencing (d)1
Degree of seasonal differencing (D)0
Seasonal Period (s)4
Frequency (Period)Spectrum
0.0069 (144)17796325530.5265
0.0139 (72)30166487472.9808
0.0208 (48)112919744404.378
0.0278 (36)7140775319.67264
0.0347 (28.8)6241583526.85695
0.0417 (24)11721214034.0105
0.0486 (20.5714)10089904148.5699
0.0556 (18)24900485711.1848
0.0625 (16)18011795986.4824
0.0694 (14.4)29653852161.6141
0.0764 (13.0909)8892560030.11591
0.0833 (12)18087647424.6525
0.0903 (11.0769)39959567053.9096
0.0972 (10.2857)12746688335.9634
0.1042 (9.6)4183545682.09172
0.1111 (9)139447883891.959
0.1181 (8.4706)21152561381.3764
0.125 (8)17588185133.7457
0.1319 (7.5789)7026950950.78489
0.1389 (7.2)106307954492.393
0.1458 (6.8571)7590218446.94402
0.1528 (6.5455)373493247393.238
0.1597 (6.2609)25466421984.2794
0.1667 (6)26946795755.5688
0.1736 (5.76)96891530024.6822
0.1806 (5.5385)30587823457.1856
0.1875 (5.3333)48957595877.0172
0.1944 (5.1429)141860714990.495
0.2014 (4.9655)19529436877.7559
0.2083 (4.8)32415792378.558
0.2153 (4.6452)230821189945.418
0.2222 (4.5)2031350275.89431
0.2292 (4.3636)121914662996.816
0.2361 (4.2353)468270991934.135
0.2431 (4.1143)142094392918.942
0.25 (4)53985617129.2507
0.2569 (3.8919)176159302204.096
0.2639 (3.7895)214050387722.242
0.2708 (3.6923)188744283704.487
0.2778 (3.6)178263460336.151
0.2847 (3.5122)267655042998.902
0.2917 (3.4286)94556011005.31
0.2986 (3.3488)199438518607.163
0.3056 (3.2727)266143771218.668
0.3125 (3.2)96987566163.8832
0.3194 (3.1304)242697090954.246
0.3264 (3.0638)24794050155.234
0.3333 (3)38512821760.1313
0.3403 (2.9388)23934249117.5013
0.3472 (2.88)88394126722.6725
0.3542 (2.8235)59276895952.981
0.3611 (2.7692)2962949948.99698
0.3681 (2.717)267771961990.626
0.375 (2.6667)34021396098.6089
0.3819 (2.6182)147974650025.891
0.3889 (2.5714)152606791489.79
0.3958 (2.5263)231681880125.029
0.4028 (2.4828)196119235300.673
0.4097 (2.4407)113254948118.311
0.4167 (2.4)488369798.63403
0.4236 (2.3607)98250047254.277
0.4306 (2.3226)57074052521.3597
0.4375 (2.2857)28875396130.3994
0.4444 (2.25)241133347924.134
0.4514 (2.2154)27508381542.5212
0.4583 (2.1818)6462639915.84464
0.4653 (2.1493)188757030555.57
0.4722 (2.1176)6306046788.03387
0.4792 (2.087)32952088372.4891
0.4861 (2.0571)32648809207.8726
0.4931 (2.0282)9073718414.30262
0.5 (2)104545034586.704



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