Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Module--
Title produced by softwareStandard Deviation-Mean Plot
Date of computationTue, 04 Dec 2012 15:57:56 -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/2012/Dec/04/t1354654686tfcarwxppkq6gi6.htm/, Retrieved Thu, 28 Mar 2024 18:47:32 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=196612, Retrieved Thu, 28 Mar 2024 18:47:32 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact104
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   [Standard Deviation-Mean Plot] [Unemployment] [2010-11-29 10:34:47] [b98453cac15ba1066b407e146608df68]
- R PD    [Standard Deviation-Mean Plot] [WS9.7] [2012-12-04 10:45:11] [74be16979710d4c4e7c6647856088456]
-  M          [Standard Deviation-Mean Plot] [] [2012-12-04 20:57:56] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
8,9634
8,9522
8,8682
8,7331
8,3188
8,3462
8,3087
8,3836
8,8412
9,5001
10,1883
10,2931
10,1945
10,3014
10,0675
9,6715
9,5019
9,4597
9,4362
9,5919
10,0167
10,322
11,166
11,5454
11,3712
11,0723
10,813
10,3016
10,4227
10,3162
10,4519
10,8567
11,2716
11,4341
12,1273
11,9814
11,8352
11,9847
11,545
11,5285
11,5539
11,622
11,6578
11,6767
11,8752
13,2643
14,2297
14,308
13,7915
13,7633
13,9775
13,6478
13,2247
13,0971
13,1039
13,206
13,7901
14,6457
15,5764
15,6102
15,8855
16,0137
15,6186
15,384
15,2751
15,0912
14,9222
15,6231
16,6737
17,6805
19,1919
19,1711
18,5658
18,1285
16,791
16,9468
17,3164
17,1816
16,7627
17,239
17,8838
18,9038
20,0274
20,0087
19,6366
19,8163
18,8602
17,9206
17,6889
17,84
17,678
17,7258
18,5865
19,9804
21,1584
21,2921
20,9445
20,5731
19,3274
17,7866
17,7483
17,5648
17,4763
17,7264
18,5736
19,9236
21,3286
20,7249
20,3334
19,7658
18,7569
17,6963
17,7978
18,1771
18,3738
18,1996
18,8443
20,1001
21,2458
20,8381
20,1967
19,8159
18,5784
19,21
19,3419
19,12
19,1563
18,9783
20,2913
22,5439
23,2821
22,6191
22,1599
21,2766
19,0846
18,9096
18,8095
20,1164
20,7762
20,9044
22,0026
23,6401
25,04
24,7185
24,1752
24,1382
22,3949
21,3743
21,4911
21,2187
21,2137
21,6735
22,5096
24,3097
25,7989
25,4376
23,878
23,6966
23,3544
21,1993
22,0431
22,0203
21,886
21,9771
23,0759
24,9859
26,2614
26,1127
25,6296
25,2926
22,8146
22,2974
22,8868
22,4612
22,3165
22,7319
23,2692
24,9432
27,8272
27,4059
26,6232
26,8779
25,105
23,601
23,5374
23,5248
22,9465
23,6633
25,5932
27,7683
29,4691
28,3472
28,3879
27,9696
26,0075
24,2533
24,4999
23,8988
23,6683
23,9427
26,0155
28,9529
30,302
29,874
28,2257
28,0811
26,3398
25,4847
25,4823
24,9697
25,2282
25,9257
28,7818
27,9552
33,3475
32,7834
31,6586
31,6613
29,1839
28,8825
27,6334
27,7511
27,3792
27,7748
31,4329
33,2735
35,0962
34,9537
31,8307
30,9984
28,629
26,4379
25,4408
24,6681
24,0994
24,6043
27,2492
29,5511
29,8522
31,6989
29,6357
30,5197
32,7823
24,9942
23,5187
24,0249
24,5692
24,402
26,7089
31,6874
32,8801
32,7906
30,8785
30,3024
28,3679
25,6578
25,1598
24,6143
24,528
25,2905
30,0016
34,2728
34,4408
34,1907
33,6636
33,9073
30,2175
28,5274
25,9505
26,2398
26,2819
26,7362
28,8395
31,0951
33,7015
33,8091
32,1126
32
29,122
26,8124
25,4654
23,8331
24,714
28,3288
29,6391
32,4542
33,5657
33,1856
33,297
33,51
31,3789
29,4555
27,2699
27,2586
27,8591
29,6362
30,9587
31,8633
33,8188
33,7531
33,6103
32,9052
29,5005
27,3634
27,2298
26,5211
26,5228
27,2991
29,1726
30,297
32,5287
32,487
32,4197
30,854
28,6995
27,7881
26,5609
25,9431
25,5578
27,1275
30,2556
34,0976
34,5614
34,2948
33,3418
31,8187
29,0818
27,3444
26,6233
26,1869
26,2953
28,7043
32,0653
34,5401
34,6636
34,2557
32,0526
30,6892
28,012
26,1528
23,2276
24,244
24,8141
27,8632
29,6233
32,4245
33,3417
33,0442
32,0526
30,2182
28,9292
26,8221
26,1032
25,9792
27,1443
29,4993
31,656
33,3665
35,0521
34,4076
33,069
31,5816
30,0695
29,0035
28,6813
28,359
30,0447
31,5073
34,16
35,57
36,42
35,12
33,14
30,29
28,2
26,5
25,47
24,96
25,6
27,76
30,13
32,35
32,8
32,54
29,78
28,79
26,8
25,41
24,34
24,39
25
26,27
27,88
29,35
29,83
29,46




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Sir Ronald Aylmer Fisher' @ fisher.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 & 3 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=196612&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]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=196612&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=196612&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 time3 seconds
R Server'Sir Ronald Aylmer Fisher' @ fisher.wessa.net







Standard Deviation-Mean Plot
SectionMeanStandard DeviationRange
18.974741666666670.68711451534441.9844
210.1062250.6729824732622552.1092
311.0350.6229705333758131.8257
412.256751.050612470289252.7795
513.952850.8834791745243252.5131
616.377551.507702904481464.2697
717.9796251.17261458375953.2647
819.01531666666671.339398463241373.6141
919.14150833333331.495378983558923.8523
1019.17741666666671.226870520569483.5495
1120.26115833333331.625102247668994.7037
1221.45322.14811046016986.2305
1322.977951.700578147946384.5852
1423.3742251.689047719399635.0621
1524.15634166666672.001313144121465.5298
1625.5880752.205170430488316.5226
1726.48103333333332.494088997221356.6337
1827.71709166666672.824842514180978.3778
1930.55675833333332.851854201442967.717
2027.92166666666672.874740591090027.7313
2128.2094753.849812473384559.3614
2228.9754253.929834375442449.9128
2329.91411666666673.255580740773757.9568
2429.26940833333333.455340462493169.7326
2530.83825833333332.517223197911956.5602
2629.61979166666672.687610272903267.0892
2729.84666666666673.374550613134449.0036
2830.41013.390307173532978.4767
2928.79076666666673.6030913326635410.1141
3030.1025253.221578083408819.0729
3131.96549166666672.844888146533698.061
3229.1453.115832006207838.18
3327.2752.161041415614245.49

\begin{tabular}{lllllllll}
\hline
Standard Deviation-Mean Plot \tabularnewline
Section & Mean & Standard Deviation & Range \tabularnewline
1 & 8.97474166666667 & 0.6871145153444 & 1.9844 \tabularnewline
2 & 10.106225 & 0.672982473262255 & 2.1092 \tabularnewline
3 & 11.035 & 0.622970533375813 & 1.8257 \tabularnewline
4 & 12.25675 & 1.05061247028925 & 2.7795 \tabularnewline
5 & 13.95285 & 0.883479174524325 & 2.5131 \tabularnewline
6 & 16.37755 & 1.50770290448146 & 4.2697 \tabularnewline
7 & 17.979625 & 1.1726145837595 & 3.2647 \tabularnewline
8 & 19.0153166666667 & 1.33939846324137 & 3.6141 \tabularnewline
9 & 19.1415083333333 & 1.49537898355892 & 3.8523 \tabularnewline
10 & 19.1774166666667 & 1.22687052056948 & 3.5495 \tabularnewline
11 & 20.2611583333333 & 1.62510224766899 & 4.7037 \tabularnewline
12 & 21.4532 & 2.1481104601698 & 6.2305 \tabularnewline
13 & 22.97795 & 1.70057814794638 & 4.5852 \tabularnewline
14 & 23.374225 & 1.68904771939963 & 5.0621 \tabularnewline
15 & 24.1563416666667 & 2.00131314412146 & 5.5298 \tabularnewline
16 & 25.588075 & 2.20517043048831 & 6.5226 \tabularnewline
17 & 26.4810333333333 & 2.49408899722135 & 6.6337 \tabularnewline
18 & 27.7170916666667 & 2.82484251418097 & 8.3778 \tabularnewline
19 & 30.5567583333333 & 2.85185420144296 & 7.717 \tabularnewline
20 & 27.9216666666667 & 2.87474059109002 & 7.7313 \tabularnewline
21 & 28.209475 & 3.84981247338455 & 9.3614 \tabularnewline
22 & 28.975425 & 3.92983437544244 & 9.9128 \tabularnewline
23 & 29.9141166666667 & 3.25558074077375 & 7.9568 \tabularnewline
24 & 29.2694083333333 & 3.45534046249316 & 9.7326 \tabularnewline
25 & 30.8382583333333 & 2.51722319791195 & 6.5602 \tabularnewline
26 & 29.6197916666667 & 2.68761027290326 & 7.0892 \tabularnewline
27 & 29.8466666666667 & 3.37455061313444 & 9.0036 \tabularnewline
28 & 30.4101 & 3.39030717353297 & 8.4767 \tabularnewline
29 & 28.7907666666667 & 3.60309133266354 & 10.1141 \tabularnewline
30 & 30.102525 & 3.22157808340881 & 9.0729 \tabularnewline
31 & 31.9654916666667 & 2.84488814653369 & 8.061 \tabularnewline
32 & 29.145 & 3.11583200620783 & 8.18 \tabularnewline
33 & 27.275 & 2.16104141561424 & 5.49 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=196612&T=1

[TABLE]
[ROW][C]Standard Deviation-Mean Plot[/C][/ROW]
[ROW][C]Section[/C][C]Mean[/C][C]Standard Deviation[/C][C]Range[/C][/ROW]
[ROW][C]1[/C][C]8.97474166666667[/C][C]0.6871145153444[/C][C]1.9844[/C][/ROW]
[ROW][C]2[/C][C]10.106225[/C][C]0.672982473262255[/C][C]2.1092[/C][/ROW]
[ROW][C]3[/C][C]11.035[/C][C]0.622970533375813[/C][C]1.8257[/C][/ROW]
[ROW][C]4[/C][C]12.25675[/C][C]1.05061247028925[/C][C]2.7795[/C][/ROW]
[ROW][C]5[/C][C]13.95285[/C][C]0.883479174524325[/C][C]2.5131[/C][/ROW]
[ROW][C]6[/C][C]16.37755[/C][C]1.50770290448146[/C][C]4.2697[/C][/ROW]
[ROW][C]7[/C][C]17.979625[/C][C]1.1726145837595[/C][C]3.2647[/C][/ROW]
[ROW][C]8[/C][C]19.0153166666667[/C][C]1.33939846324137[/C][C]3.6141[/C][/ROW]
[ROW][C]9[/C][C]19.1415083333333[/C][C]1.49537898355892[/C][C]3.8523[/C][/ROW]
[ROW][C]10[/C][C]19.1774166666667[/C][C]1.22687052056948[/C][C]3.5495[/C][/ROW]
[ROW][C]11[/C][C]20.2611583333333[/C][C]1.62510224766899[/C][C]4.7037[/C][/ROW]
[ROW][C]12[/C][C]21.4532[/C][C]2.1481104601698[/C][C]6.2305[/C][/ROW]
[ROW][C]13[/C][C]22.97795[/C][C]1.70057814794638[/C][C]4.5852[/C][/ROW]
[ROW][C]14[/C][C]23.374225[/C][C]1.68904771939963[/C][C]5.0621[/C][/ROW]
[ROW][C]15[/C][C]24.1563416666667[/C][C]2.00131314412146[/C][C]5.5298[/C][/ROW]
[ROW][C]16[/C][C]25.588075[/C][C]2.20517043048831[/C][C]6.5226[/C][/ROW]
[ROW][C]17[/C][C]26.4810333333333[/C][C]2.49408899722135[/C][C]6.6337[/C][/ROW]
[ROW][C]18[/C][C]27.7170916666667[/C][C]2.82484251418097[/C][C]8.3778[/C][/ROW]
[ROW][C]19[/C][C]30.5567583333333[/C][C]2.85185420144296[/C][C]7.717[/C][/ROW]
[ROW][C]20[/C][C]27.9216666666667[/C][C]2.87474059109002[/C][C]7.7313[/C][/ROW]
[ROW][C]21[/C][C]28.209475[/C][C]3.84981247338455[/C][C]9.3614[/C][/ROW]
[ROW][C]22[/C][C]28.975425[/C][C]3.92983437544244[/C][C]9.9128[/C][/ROW]
[ROW][C]23[/C][C]29.9141166666667[/C][C]3.25558074077375[/C][C]7.9568[/C][/ROW]
[ROW][C]24[/C][C]29.2694083333333[/C][C]3.45534046249316[/C][C]9.7326[/C][/ROW]
[ROW][C]25[/C][C]30.8382583333333[/C][C]2.51722319791195[/C][C]6.5602[/C][/ROW]
[ROW][C]26[/C][C]29.6197916666667[/C][C]2.68761027290326[/C][C]7.0892[/C][/ROW]
[ROW][C]27[/C][C]29.8466666666667[/C][C]3.37455061313444[/C][C]9.0036[/C][/ROW]
[ROW][C]28[/C][C]30.4101[/C][C]3.39030717353297[/C][C]8.4767[/C][/ROW]
[ROW][C]29[/C][C]28.7907666666667[/C][C]3.60309133266354[/C][C]10.1141[/C][/ROW]
[ROW][C]30[/C][C]30.102525[/C][C]3.22157808340881[/C][C]9.0729[/C][/ROW]
[ROW][C]31[/C][C]31.9654916666667[/C][C]2.84488814653369[/C][C]8.061[/C][/ROW]
[ROW][C]32[/C][C]29.145[/C][C]3.11583200620783[/C][C]8.18[/C][/ROW]
[ROW][C]33[/C][C]27.275[/C][C]2.16104141561424[/C][C]5.49[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=196612&T=1

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

As an alternative you can also use a QR Code:  

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

Standard Deviation-Mean Plot
SectionMeanStandard DeviationRange
18.974741666666670.68711451534441.9844
210.1062250.6729824732622552.1092
311.0350.6229705333758131.8257
412.256751.050612470289252.7795
513.952850.8834791745243252.5131
616.377551.507702904481464.2697
717.9796251.17261458375953.2647
819.01531666666671.339398463241373.6141
919.14150833333331.495378983558923.8523
1019.17741666666671.226870520569483.5495
1120.26115833333331.625102247668994.7037
1221.45322.14811046016986.2305
1322.977951.700578147946384.5852
1423.3742251.689047719399635.0621
1524.15634166666672.001313144121465.5298
1625.5880752.205170430488316.5226
1726.48103333333332.494088997221356.6337
1827.71709166666672.824842514180978.3778
1930.55675833333332.851854201442967.717
2027.92166666666672.874740591090027.7313
2128.2094753.849812473384559.3614
2228.9754253.929834375442449.9128
2329.91411666666673.255580740773757.9568
2429.26940833333333.455340462493169.7326
2530.83825833333332.517223197911956.5602
2629.61979166666672.687610272903267.0892
2729.84666666666673.374550613134449.0036
2830.41013.390307173532978.4767
2928.79076666666673.6030913326635410.1141
3030.1025253.221578083408819.0729
3131.96549166666672.844888146533698.061
3229.1453.115832006207838.18
3327.2752.161041415614245.49







Regression: S.E.(k) = alpha + beta * Mean(k)
alpha-0.866851731878326
beta0.131678606026448
S.D.0.0109405083137067
T-STAT12.0358764191492
p-value3.22121010417581e-13

\begin{tabular}{lllllllll}
\hline
Regression: S.E.(k) = alpha + beta * Mean(k) \tabularnewline
alpha & -0.866851731878326 \tabularnewline
beta & 0.131678606026448 \tabularnewline
S.D. & 0.0109405083137067 \tabularnewline
T-STAT & 12.0358764191492 \tabularnewline
p-value & 3.22121010417581e-13 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=196612&T=2

[TABLE]
[ROW][C]Regression: S.E.(k) = alpha + beta * Mean(k)[/C][/ROW]
[ROW][C]alpha[/C][C]-0.866851731878326[/C][/ROW]
[ROW][C]beta[/C][C]0.131678606026448[/C][/ROW]
[ROW][C]S.D.[/C][C]0.0109405083137067[/C][/ROW]
[ROW][C]T-STAT[/C][C]12.0358764191492[/C][/ROW]
[ROW][C]p-value[/C][C]3.22121010417581e-13[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=196612&T=2

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

As an alternative you can also use a QR Code:  

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

Regression: S.E.(k) = alpha + beta * Mean(k)
alpha-0.866851731878326
beta0.131678606026448
S.D.0.0109405083137067
T-STAT12.0358764191492
p-value3.22121010417581e-13







Regression: ln S.E.(k) = alpha + beta * ln Mean(k)
alpha-3.74993295837514
beta1.42726334666116
S.D.0.0854431849191979
T-STAT16.7042385886118
p-value4.71516680946893e-17
Lambda-0.42726334666116

\begin{tabular}{lllllllll}
\hline
Regression: ln S.E.(k) = alpha + beta * ln Mean(k) \tabularnewline
alpha & -3.74993295837514 \tabularnewline
beta & 1.42726334666116 \tabularnewline
S.D. & 0.0854431849191979 \tabularnewline
T-STAT & 16.7042385886118 \tabularnewline
p-value & 4.71516680946893e-17 \tabularnewline
Lambda & -0.42726334666116 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=196612&T=3

[TABLE]
[ROW][C]Regression: ln S.E.(k) = alpha + beta * ln Mean(k)[/C][/ROW]
[ROW][C]alpha[/C][C]-3.74993295837514[/C][/ROW]
[ROW][C]beta[/C][C]1.42726334666116[/C][/ROW]
[ROW][C]S.D.[/C][C]0.0854431849191979[/C][/ROW]
[ROW][C]T-STAT[/C][C]16.7042385886118[/C][/ROW]
[ROW][C]p-value[/C][C]4.71516680946893e-17[/C][/ROW]
[ROW][C]Lambda[/C][C]-0.42726334666116[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=196612&T=3

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

As an alternative you can also use a QR Code:  

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

Regression: ln S.E.(k) = alpha + beta * ln Mean(k)
alpha-3.74993295837514
beta1.42726334666116
S.D.0.0854431849191979
T-STAT16.7042385886118
p-value4.71516680946893e-17
Lambda-0.42726334666116



Parameters (Session):
par1 = 12 ;
Parameters (R input):
par1 = 12 ; par2 = ; par3 = ; par4 = ; par5 = ; par6 = ; par7 = ; par8 = ; par9 = ; par10 = ; par11 = ; par12 = ; par13 = ; par14 = ; par15 = ; par16 = ; par17 = ; par18 = ; par19 = ; par20 = ;
R code (references can be found in the software module):
par1 <- as.numeric(par1)
(n <- length(x))
(np <- floor(n / par1))
arr <- array(NA,dim=c(par1,np))
j <- 0
k <- 1
for (i in 1:(np*par1))
{
j = j + 1
arr[j,k] <- x[i]
if (j == par1) {
j = 0
k=k+1
}
}
arr
arr.mean <- array(NA,dim=np)
arr.sd <- array(NA,dim=np)
arr.range <- array(NA,dim=np)
for (j in 1:np)
{
arr.mean[j] <- mean(arr[,j],na.rm=TRUE)
arr.sd[j] <- sd(arr[,j],na.rm=TRUE)
arr.range[j] <- max(arr[,j],na.rm=TRUE) - min(arr[,j],na.rm=TRUE)
}
arr.mean
arr.sd
arr.range
(lm1 <- lm(arr.sd~arr.mean))
(lnlm1 <- lm(log(arr.sd)~log(arr.mean)))
(lm2 <- lm(arr.range~arr.mean))
bitmap(file='test1.png')
plot(arr.mean,arr.sd,main='Standard Deviation-Mean Plot',xlab='mean',ylab='standard deviation')
dev.off()
bitmap(file='test2.png')
plot(arr.mean,arr.range,main='Range-Mean Plot',xlab='mean',ylab='range')
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Standard Deviation-Mean Plot',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Section',header=TRUE)
a<-table.element(a,'Mean',header=TRUE)
a<-table.element(a,'Standard Deviation',header=TRUE)
a<-table.element(a,'Range',header=TRUE)
a<-table.row.end(a)
for (j in 1:np) {
a<-table.row.start(a)
a<-table.element(a,j,header=TRUE)
a<-table.element(a,arr.mean[j])
a<-table.element(a,arr.sd[j] )
a<-table.element(a,arr.range[j] )
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Regression: S.E.(k) = alpha + beta * Mean(k)',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'alpha',header=TRUE)
a<-table.element(a,lm1$coefficients[[1]])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'beta',header=TRUE)
a<-table.element(a,lm1$coefficients[[2]])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'S.D.',header=TRUE)
a<-table.element(a,summary(lm1)$coefficients[2,2])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'T-STAT',header=TRUE)
a<-table.element(a,summary(lm1)$coefficients[2,3])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'p-value',header=TRUE)
a<-table.element(a,summary(lm1)$coefficients[2,4])
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Regression: ln S.E.(k) = alpha + beta * ln Mean(k)',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'alpha',header=TRUE)
a<-table.element(a,lnlm1$coefficients[[1]])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'beta',header=TRUE)
a<-table.element(a,lnlm1$coefficients[[2]])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'S.D.',header=TRUE)
a<-table.element(a,summary(lnlm1)$coefficients[2,2])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'T-STAT',header=TRUE)
a<-table.element(a,summary(lnlm1)$coefficients[2,3])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'p-value',header=TRUE)
a<-table.element(a,summary(lnlm1)$coefficients[2,4])
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Lambda',header=TRUE)
a<-table.element(a,1-lnlm1$coefficients[[2]])
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable2.tab')