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 computationTue, 28 Dec 2010 23:07:27 +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/29/t12935775957pllrzum24i5jcz.htm/, Retrieved Fri, 03 May 2024 07:11:15 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=116583, Retrieved Fri, 03 May 2024 07:11:15 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact155
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [data set] [2008-12-01 19:54:57] [b98453cac15ba1066b407e146608df68]
- RMP   [Spectral Analysis] [Unemployment] [2010-11-29 09:21:38] [b98453cac15ba1066b407e146608df68]
-         [Spectral Analysis] [] [2010-12-15 15:52:51] [42f9a5501cee5cbc9edf1c0ec1f66440]
-   PD      [Spectral Analysis] [Spectral analysis] [2010-12-27 23:21:10] [c420bdd199bcbe079f7d532ca3855317]
-   P           [Spectral Analysis] [] [2010-12-28 23:07:27] [a7b2a0c11f64eef3aa1d49ba29ffb331] [Current]
-                 [Spectral Analysis] [Spectrale analyse...] [2010-12-29 22:18:40] [17d39bb3ec485d4ce196f61215d11ba1]
-   P             [Spectral Analysis] [spec analyse objv...] [2010-12-29 22:51:15] [442b6d00ecbe55ac6a674160c9c5510a]
Feedback Forum

Post a new message
Dataseries X:
20503
22885
26217
26583
27751
28158
27373
28367
26851
26733
26849
26733
27951
29781
32914
33488
35652
36488
35387
35676
34844
32447
31068
29010
29812
30951
32974
32936
34012
32946
31948
30599
27691
25073
23406
22248
22896
25317
26558
26471
27543
26198
24725
25005
23462
20780
19815
19761
21454
23899
24939
23580
24562
24696
23785
23812
21917
19713
19282
18788
21453
24482
27474
27264
27349
30632
29429
30084
26290
24379
23335
21346
21106
24514
28353
30805
31348
34556
33855
34787
32529
29998
29257
28155
30466
35704
39327
39351
42234
43630
43722
43121
37985
37135
34646
33026
35087
38846
42013
43908
42868
44423
44167
43636
44382
42142
43452
36912
42413
45344
44873
47510
49554
47369
45998
48140
48441
44928
40454
38661
37246
36843
36424
37594
38144
38737
34560
36080
33508
35462
33374
32110
35533
35532
37903
36763
40399
44164
44496
43110
43880
43930
44327




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'RServer@AstonUniversity' @ vre.aston.ac.uk

\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 & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=116583&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]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=116583&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=116583&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'RServer@AstonUniversity' @ vre.aston.ac.uk







Raw Periodogram
ParameterValue
Box-Cox transformation parameter (lambda)1
Degree of non-seasonal differencing (d)1
Degree of seasonal differencing (D)1
Seasonal Period (s)12
Frequency (Period)Spectrum
0.0074 (135)5557631.016938
0.0148 (67.5)4428324.932116
0.0222 (45)7881225.558672
0.0296 (33.75)5225369.324722
0.037 (27)7145176.779857
0.0444 (22.5)14471388.79256
0.0519 (19.2857)231550.253022
0.0593 (16.875)3263306.863893
0.0667 (15)232226.745052
0.0741 (13.5)3248808.803921
0.0815 (12.2727)346916.989501
0.0889 (11.25)469145.070669
0.0963 (10.3846)2016224.540591
0.1037 (9.6429)9052917.37723
0.1111 (9)576767.458829
0.1185 (8.4375)983643.859879
0.1259 (7.9412)2773447.041191
0.1333 (7.5)66229.215799
0.1407 (7.1053)3007880.931948
0.1481 (6.75)3312639.149375
0.1556 (6.4286)1992256.343586
0.163 (6.1364)1167551.82021
0.1704 (5.8696)443316.244459
0.1778 (5.625)848448.399032
0.1852 (5.4)33177.800752
0.1926 (5.1923)1715714.653564
0.2 (5)5998438.917412
0.2074 (4.8214)1235822.647808
0.2148 (4.6552)1492635.97994
0.2222 (4.5)8385249.406782
0.2296 (4.3548)395587.065494
0.237 (4.2188)3911834.095663
0.2444 (4.0909)700150.301702
0.2519 (3.9706)457290.339098
0.2593 (3.8571)2119743.96765
0.2667 (3.75)4747102.89894
0.2741 (3.6486)4947251.887012
0.2815 (3.5526)11843131.819385
0.2889 (3.4615)8991940.151689
0.2963 (3.375)9006012.00164
0.3037 (3.2927)10219588.468142
0.3111 (3.2143)1219937.835923
0.3185 (3.1395)3476069.211579
0.3259 (3.0682)49498.11482
0.3333 (3)184575.312681
0.3407 (2.9348)618228.678371
0.3481 (2.8723)1290478.289601
0.3556 (2.8125)529470.877642
0.363 (2.7551)374425.556481
0.3704 (2.7)2865804.966615
0.3778 (2.6471)9208225.295884
0.3852 (2.5962)21774124.406424
0.3926 (2.5472)20597299.788894
0.4 (2.5)1327092.886843
0.4074 (2.4545)2104042.97916
0.4148 (2.4107)387886.731424
0.4222 (2.3684)2185136.22975
0.4296 (2.3276)3248528.503463
0.437 (2.2881)5545405.159313
0.4444 (2.25)881085.870979
0.4519 (2.2131)7134328.778999
0.4593 (2.1774)16994701.697267
0.4667 (2.1429)21506555.166281
0.4741 (2.1094)5334662.016965
0.4815 (2.0769)6044607.669028
0.4889 (2.0455)2184904.295494
0.4963 (2.0149)159198.043668

\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) & 1 \tabularnewline
Seasonal Period (s) & 12 \tabularnewline
Frequency (Period) & Spectrum \tabularnewline
0.0074 (135) & 5557631.016938 \tabularnewline
0.0148 (67.5) & 4428324.932116 \tabularnewline
0.0222 (45) & 7881225.558672 \tabularnewline
0.0296 (33.75) & 5225369.324722 \tabularnewline
0.037 (27) & 7145176.779857 \tabularnewline
0.0444 (22.5) & 14471388.79256 \tabularnewline
0.0519 (19.2857) & 231550.253022 \tabularnewline
0.0593 (16.875) & 3263306.863893 \tabularnewline
0.0667 (15) & 232226.745052 \tabularnewline
0.0741 (13.5) & 3248808.803921 \tabularnewline
0.0815 (12.2727) & 346916.989501 \tabularnewline
0.0889 (11.25) & 469145.070669 \tabularnewline
0.0963 (10.3846) & 2016224.540591 \tabularnewline
0.1037 (9.6429) & 9052917.37723 \tabularnewline
0.1111 (9) & 576767.458829 \tabularnewline
0.1185 (8.4375) & 983643.859879 \tabularnewline
0.1259 (7.9412) & 2773447.041191 \tabularnewline
0.1333 (7.5) & 66229.215799 \tabularnewline
0.1407 (7.1053) & 3007880.931948 \tabularnewline
0.1481 (6.75) & 3312639.149375 \tabularnewline
0.1556 (6.4286) & 1992256.343586 \tabularnewline
0.163 (6.1364) & 1167551.82021 \tabularnewline
0.1704 (5.8696) & 443316.244459 \tabularnewline
0.1778 (5.625) & 848448.399032 \tabularnewline
0.1852 (5.4) & 33177.800752 \tabularnewline
0.1926 (5.1923) & 1715714.653564 \tabularnewline
0.2 (5) & 5998438.917412 \tabularnewline
0.2074 (4.8214) & 1235822.647808 \tabularnewline
0.2148 (4.6552) & 1492635.97994 \tabularnewline
0.2222 (4.5) & 8385249.406782 \tabularnewline
0.2296 (4.3548) & 395587.065494 \tabularnewline
0.237 (4.2188) & 3911834.095663 \tabularnewline
0.2444 (4.0909) & 700150.301702 \tabularnewline
0.2519 (3.9706) & 457290.339098 \tabularnewline
0.2593 (3.8571) & 2119743.96765 \tabularnewline
0.2667 (3.75) & 4747102.89894 \tabularnewline
0.2741 (3.6486) & 4947251.887012 \tabularnewline
0.2815 (3.5526) & 11843131.819385 \tabularnewline
0.2889 (3.4615) & 8991940.151689 \tabularnewline
0.2963 (3.375) & 9006012.00164 \tabularnewline
0.3037 (3.2927) & 10219588.468142 \tabularnewline
0.3111 (3.2143) & 1219937.835923 \tabularnewline
0.3185 (3.1395) & 3476069.211579 \tabularnewline
0.3259 (3.0682) & 49498.11482 \tabularnewline
0.3333 (3) & 184575.312681 \tabularnewline
0.3407 (2.9348) & 618228.678371 \tabularnewline
0.3481 (2.8723) & 1290478.289601 \tabularnewline
0.3556 (2.8125) & 529470.877642 \tabularnewline
0.363 (2.7551) & 374425.556481 \tabularnewline
0.3704 (2.7) & 2865804.966615 \tabularnewline
0.3778 (2.6471) & 9208225.295884 \tabularnewline
0.3852 (2.5962) & 21774124.406424 \tabularnewline
0.3926 (2.5472) & 20597299.788894 \tabularnewline
0.4 (2.5) & 1327092.886843 \tabularnewline
0.4074 (2.4545) & 2104042.97916 \tabularnewline
0.4148 (2.4107) & 387886.731424 \tabularnewline
0.4222 (2.3684) & 2185136.22975 \tabularnewline
0.4296 (2.3276) & 3248528.503463 \tabularnewline
0.437 (2.2881) & 5545405.159313 \tabularnewline
0.4444 (2.25) & 881085.870979 \tabularnewline
0.4519 (2.2131) & 7134328.778999 \tabularnewline
0.4593 (2.1774) & 16994701.697267 \tabularnewline
0.4667 (2.1429) & 21506555.166281 \tabularnewline
0.4741 (2.1094) & 5334662.016965 \tabularnewline
0.4815 (2.0769) & 6044607.669028 \tabularnewline
0.4889 (2.0455) & 2184904.295494 \tabularnewline
0.4963 (2.0149) & 159198.043668 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=116583&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]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.0074 (135)[/C][C]5557631.016938[/C][/ROW]
[ROW][C]0.0148 (67.5)[/C][C]4428324.932116[/C][/ROW]
[ROW][C]0.0222 (45)[/C][C]7881225.558672[/C][/ROW]
[ROW][C]0.0296 (33.75)[/C][C]5225369.324722[/C][/ROW]
[ROW][C]0.037 (27)[/C][C]7145176.779857[/C][/ROW]
[ROW][C]0.0444 (22.5)[/C][C]14471388.79256[/C][/ROW]
[ROW][C]0.0519 (19.2857)[/C][C]231550.253022[/C][/ROW]
[ROW][C]0.0593 (16.875)[/C][C]3263306.863893[/C][/ROW]
[ROW][C]0.0667 (15)[/C][C]232226.745052[/C][/ROW]
[ROW][C]0.0741 (13.5)[/C][C]3248808.803921[/C][/ROW]
[ROW][C]0.0815 (12.2727)[/C][C]346916.989501[/C][/ROW]
[ROW][C]0.0889 (11.25)[/C][C]469145.070669[/C][/ROW]
[ROW][C]0.0963 (10.3846)[/C][C]2016224.540591[/C][/ROW]
[ROW][C]0.1037 (9.6429)[/C][C]9052917.37723[/C][/ROW]
[ROW][C]0.1111 (9)[/C][C]576767.458829[/C][/ROW]
[ROW][C]0.1185 (8.4375)[/C][C]983643.859879[/C][/ROW]
[ROW][C]0.1259 (7.9412)[/C][C]2773447.041191[/C][/ROW]
[ROW][C]0.1333 (7.5)[/C][C]66229.215799[/C][/ROW]
[ROW][C]0.1407 (7.1053)[/C][C]3007880.931948[/C][/ROW]
[ROW][C]0.1481 (6.75)[/C][C]3312639.149375[/C][/ROW]
[ROW][C]0.1556 (6.4286)[/C][C]1992256.343586[/C][/ROW]
[ROW][C]0.163 (6.1364)[/C][C]1167551.82021[/C][/ROW]
[ROW][C]0.1704 (5.8696)[/C][C]443316.244459[/C][/ROW]
[ROW][C]0.1778 (5.625)[/C][C]848448.399032[/C][/ROW]
[ROW][C]0.1852 (5.4)[/C][C]33177.800752[/C][/ROW]
[ROW][C]0.1926 (5.1923)[/C][C]1715714.653564[/C][/ROW]
[ROW][C]0.2 (5)[/C][C]5998438.917412[/C][/ROW]
[ROW][C]0.2074 (4.8214)[/C][C]1235822.647808[/C][/ROW]
[ROW][C]0.2148 (4.6552)[/C][C]1492635.97994[/C][/ROW]
[ROW][C]0.2222 (4.5)[/C][C]8385249.406782[/C][/ROW]
[ROW][C]0.2296 (4.3548)[/C][C]395587.065494[/C][/ROW]
[ROW][C]0.237 (4.2188)[/C][C]3911834.095663[/C][/ROW]
[ROW][C]0.2444 (4.0909)[/C][C]700150.301702[/C][/ROW]
[ROW][C]0.2519 (3.9706)[/C][C]457290.339098[/C][/ROW]
[ROW][C]0.2593 (3.8571)[/C][C]2119743.96765[/C][/ROW]
[ROW][C]0.2667 (3.75)[/C][C]4747102.89894[/C][/ROW]
[ROW][C]0.2741 (3.6486)[/C][C]4947251.887012[/C][/ROW]
[ROW][C]0.2815 (3.5526)[/C][C]11843131.819385[/C][/ROW]
[ROW][C]0.2889 (3.4615)[/C][C]8991940.151689[/C][/ROW]
[ROW][C]0.2963 (3.375)[/C][C]9006012.00164[/C][/ROW]
[ROW][C]0.3037 (3.2927)[/C][C]10219588.468142[/C][/ROW]
[ROW][C]0.3111 (3.2143)[/C][C]1219937.835923[/C][/ROW]
[ROW][C]0.3185 (3.1395)[/C][C]3476069.211579[/C][/ROW]
[ROW][C]0.3259 (3.0682)[/C][C]49498.11482[/C][/ROW]
[ROW][C]0.3333 (3)[/C][C]184575.312681[/C][/ROW]
[ROW][C]0.3407 (2.9348)[/C][C]618228.678371[/C][/ROW]
[ROW][C]0.3481 (2.8723)[/C][C]1290478.289601[/C][/ROW]
[ROW][C]0.3556 (2.8125)[/C][C]529470.877642[/C][/ROW]
[ROW][C]0.363 (2.7551)[/C][C]374425.556481[/C][/ROW]
[ROW][C]0.3704 (2.7)[/C][C]2865804.966615[/C][/ROW]
[ROW][C]0.3778 (2.6471)[/C][C]9208225.295884[/C][/ROW]
[ROW][C]0.3852 (2.5962)[/C][C]21774124.406424[/C][/ROW]
[ROW][C]0.3926 (2.5472)[/C][C]20597299.788894[/C][/ROW]
[ROW][C]0.4 (2.5)[/C][C]1327092.886843[/C][/ROW]
[ROW][C]0.4074 (2.4545)[/C][C]2104042.97916[/C][/ROW]
[ROW][C]0.4148 (2.4107)[/C][C]387886.731424[/C][/ROW]
[ROW][C]0.4222 (2.3684)[/C][C]2185136.22975[/C][/ROW]
[ROW][C]0.4296 (2.3276)[/C][C]3248528.503463[/C][/ROW]
[ROW][C]0.437 (2.2881)[/C][C]5545405.159313[/C][/ROW]
[ROW][C]0.4444 (2.25)[/C][C]881085.870979[/C][/ROW]
[ROW][C]0.4519 (2.2131)[/C][C]7134328.778999[/C][/ROW]
[ROW][C]0.4593 (2.1774)[/C][C]16994701.697267[/C][/ROW]
[ROW][C]0.4667 (2.1429)[/C][C]21506555.166281[/C][/ROW]
[ROW][C]0.4741 (2.1094)[/C][C]5334662.016965[/C][/ROW]
[ROW][C]0.4815 (2.0769)[/C][C]6044607.669028[/C][/ROW]
[ROW][C]0.4889 (2.0455)[/C][C]2184904.295494[/C][/ROW]
[ROW][C]0.4963 (2.0149)[/C][C]159198.043668[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=116583&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=116583&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)1
Seasonal Period (s)12
Frequency (Period)Spectrum
0.0074 (135)5557631.016938
0.0148 (67.5)4428324.932116
0.0222 (45)7881225.558672
0.0296 (33.75)5225369.324722
0.037 (27)7145176.779857
0.0444 (22.5)14471388.79256
0.0519 (19.2857)231550.253022
0.0593 (16.875)3263306.863893
0.0667 (15)232226.745052
0.0741 (13.5)3248808.803921
0.0815 (12.2727)346916.989501
0.0889 (11.25)469145.070669
0.0963 (10.3846)2016224.540591
0.1037 (9.6429)9052917.37723
0.1111 (9)576767.458829
0.1185 (8.4375)983643.859879
0.1259 (7.9412)2773447.041191
0.1333 (7.5)66229.215799
0.1407 (7.1053)3007880.931948
0.1481 (6.75)3312639.149375
0.1556 (6.4286)1992256.343586
0.163 (6.1364)1167551.82021
0.1704 (5.8696)443316.244459
0.1778 (5.625)848448.399032
0.1852 (5.4)33177.800752
0.1926 (5.1923)1715714.653564
0.2 (5)5998438.917412
0.2074 (4.8214)1235822.647808
0.2148 (4.6552)1492635.97994
0.2222 (4.5)8385249.406782
0.2296 (4.3548)395587.065494
0.237 (4.2188)3911834.095663
0.2444 (4.0909)700150.301702
0.2519 (3.9706)457290.339098
0.2593 (3.8571)2119743.96765
0.2667 (3.75)4747102.89894
0.2741 (3.6486)4947251.887012
0.2815 (3.5526)11843131.819385
0.2889 (3.4615)8991940.151689
0.2963 (3.375)9006012.00164
0.3037 (3.2927)10219588.468142
0.3111 (3.2143)1219937.835923
0.3185 (3.1395)3476069.211579
0.3259 (3.0682)49498.11482
0.3333 (3)184575.312681
0.3407 (2.9348)618228.678371
0.3481 (2.8723)1290478.289601
0.3556 (2.8125)529470.877642
0.363 (2.7551)374425.556481
0.3704 (2.7)2865804.966615
0.3778 (2.6471)9208225.295884
0.3852 (2.5962)21774124.406424
0.3926 (2.5472)20597299.788894
0.4 (2.5)1327092.886843
0.4074 (2.4545)2104042.97916
0.4148 (2.4107)387886.731424
0.4222 (2.3684)2185136.22975
0.4296 (2.3276)3248528.503463
0.437 (2.2881)5545405.159313
0.4444 (2.25)881085.870979
0.4519 (2.2131)7134328.778999
0.4593 (2.1774)16994701.697267
0.4667 (2.1429)21506555.166281
0.4741 (2.1094)5334662.016965
0.4815 (2.0769)6044607.669028
0.4889 (2.0455)2184904.295494
0.4963 (2.0149)159198.043668



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