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_smp.wasp
Title produced by softwareStandard Deviation-Mean Plot
Date of computationTue, 20 Dec 2011 10:29:48 -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/20/t1324395018dzhcd354qx7fazn.htm/, Retrieved Mon, 06 May 2024 08:22:22 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=157998, Retrieved Mon, 06 May 2024 08:22:22 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [(Partial) Autocorrelation Function] [] [2011-12-05 11:42:22] [aba4febe8a2e49e81bdc61a6c01f5c21]
- RMPD  [Variance Reduction Matrix] [Variance Reductio...] [2011-12-20 13:59:28] [aba4febe8a2e49e81bdc61a6c01f5c21]
- RMP     [Standard Deviation-Mean Plot] [] [2011-12-20 14:38:17] [aba4febe8a2e49e81bdc61a6c01f5c21]
- RM        [ARIMA Backward Selection] [] [2011-12-20 14:48:06] [aba4febe8a2e49e81bdc61a6c01f5c21]
- RM D        [(Partial) Autocorrelation Function] [] [2011-12-20 15:23:33] [aba4febe8a2e49e81bdc61a6c01f5c21]
- RM            [Spectral Analysis] [] [2011-12-20 15:26:09] [aba4febe8a2e49e81bdc61a6c01f5c21]
- RM              [Variance Reduction Matrix] [] [2011-12-20 15:27:08] [aba4febe8a2e49e81bdc61a6c01f5c21]
- RM                [Standard Deviation-Mean Plot] [] [2011-12-20 15:29:15] [aba4febe8a2e49e81bdc61a6c01f5c21]
- R                     [Standard Deviation-Mean Plot] [Standard Deviatio...] [2011-12-20 15:29:48] [3627de22d386f4cb93d383ef7c1ade7f] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
396
297
559
967
270
143
1562
109
371
656
511
655
465
525
885
497
1436
612
865
385
567
639
963
398
410
966
801
892
513
469
683
643
535
625
264
992
238
818
937
70
507
260
503
927
1269
537
910
532
345
918
1635
330
557
1178
740
452
218
764
255
454
866
574
1276
379
825
798
663
1069
921
858
711
503
382
464
717
690
462
657
385
577
619
479
817
752
430
451
537
519
1000
637
465
437
711
299
248
1162
714
905
649
512
472
905
786
489
479
617
925
351
1144
669
707
458
214
599
572
897
819
720
273
508
506
451
699
407
465
245
370
316
603
154
229
577
192
617
411
975
146
705
184
200
274
502
382
964
537
438
369
417
276
514
822
389
466
1255
694
1024
400
397
350
719
1277
356
457
1402
600
480
595
436
230
651
1367
564
716
747
467
671
861
319
612
433
434
503
85
564
824
74
259
69
535
239
438
459
426
288
498
454
376
225
555
252
208
130
481
389
565
173
278
609
422
445
387
339
181
245
384
212
399
229
224
203
333
384
636
185
93
581
248
304
344
407
170
312
507
224
340
168
443
204
367
210
335
364
178
206
279
387
490
238
343
232
530
291
67
397
467
178
175
299
154
106
189
194
135
201
207
280
260
227
239
333
428
230
292
350
186
326
155
75
361
261
299
300
450
183
238
165
234
176
329

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=157998&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=157998&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=157998&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






Standard Deviation-Mean Plot
SectionMeanStandard DeviationRange
1599.142857142857502.1591476054281419
2470.285714285714188.712050741965547
3749.571428571429353.9801581740881051
4724.142857142857245.606343954052568
5533.142857142857141.377070950265419
6546372.052415662095922
7717.571428571429325.795363760166924
8830456.8708789143821305
9629.571428571429373.1504866863851058
10787.571428571429218.297852442374690
11561.285714285714140.292212050081335
12612.285714285714149.522255072296432
13577198.964821011153570
14639.428571428571332.760603208401914
15613.142857142857173.158336570347433
16695.857142857143269.538141129988793
17584.857142857143260.023991567079683
18468.714285714286135.492575793798454
19348.714285714286180.325367309311449
20462.571428571429314.808331710401829
21495.142857142857224.53984692509690
22591.285714285714338.160570481793979
23694.428571428571351.756003096302927
24618356.4271781631321046
25677.428571428571351.1584908759661137
26547.571428571429181.603833607533542
27344.285714285714299.474937340737755
28400.28571428571497.1128455041081259
29318.142857142857156.285453120701425
30411.571428571429152.212414236221436
31306.71428571428691.7981740662894218
32313.428571428571159.807026485964451
33306.714285714286160.467768607608488
34314126.547751198247339
3527779.9666597193272189
36358.714285714286117.498530892538298
37248.142857142857144.099998347708400
38187.42857142857155.6203114663973174
3928772.9200475406683201
40244.857142857143109.376153055147286
4126795.7357474161733285

\begin{tabular}{lllllllll}
\hline
Standard Deviation-Mean Plot \tabularnewline
Section & Mean & Standard Deviation & Range \tabularnewline
1 & 599.142857142857 & 502.159147605428 & 1419 \tabularnewline
2 & 470.285714285714 & 188.712050741965 & 547 \tabularnewline
3 & 749.571428571429 & 353.980158174088 & 1051 \tabularnewline
4 & 724.142857142857 & 245.606343954052 & 568 \tabularnewline
5 & 533.142857142857 & 141.377070950265 & 419 \tabularnewline
6 & 546 & 372.052415662095 & 922 \tabularnewline
7 & 717.571428571429 & 325.795363760166 & 924 \tabularnewline
8 & 830 & 456.870878914382 & 1305 \tabularnewline
9 & 629.571428571429 & 373.150486686385 & 1058 \tabularnewline
10 & 787.571428571429 & 218.297852442374 & 690 \tabularnewline
11 & 561.285714285714 & 140.292212050081 & 335 \tabularnewline
12 & 612.285714285714 & 149.522255072296 & 432 \tabularnewline
13 & 577 & 198.964821011153 & 570 \tabularnewline
14 & 639.428571428571 & 332.760603208401 & 914 \tabularnewline
15 & 613.142857142857 & 173.158336570347 & 433 \tabularnewline
16 & 695.857142857143 & 269.538141129988 & 793 \tabularnewline
17 & 584.857142857143 & 260.023991567079 & 683 \tabularnewline
18 & 468.714285714286 & 135.492575793798 & 454 \tabularnewline
19 & 348.714285714286 & 180.325367309311 & 449 \tabularnewline
20 & 462.571428571429 & 314.808331710401 & 829 \tabularnewline
21 & 495.142857142857 & 224.53984692509 & 690 \tabularnewline
22 & 591.285714285714 & 338.160570481793 & 979 \tabularnewline
23 & 694.428571428571 & 351.756003096302 & 927 \tabularnewline
24 & 618 & 356.427178163132 & 1046 \tabularnewline
25 & 677.428571428571 & 351.158490875966 & 1137 \tabularnewline
26 & 547.571428571429 & 181.603833607533 & 542 \tabularnewline
27 & 344.285714285714 & 299.474937340737 & 755 \tabularnewline
28 & 400.285714285714 & 97.1128455041081 & 259 \tabularnewline
29 & 318.142857142857 & 156.285453120701 & 425 \tabularnewline
30 & 411.571428571429 & 152.212414236221 & 436 \tabularnewline
31 & 306.714285714286 & 91.7981740662894 & 218 \tabularnewline
32 & 313.428571428571 & 159.807026485964 & 451 \tabularnewline
33 & 306.714285714286 & 160.467768607608 & 488 \tabularnewline
34 & 314 & 126.547751198247 & 339 \tabularnewline
35 & 277 & 79.9666597193272 & 189 \tabularnewline
36 & 358.714285714286 & 117.498530892538 & 298 \tabularnewline
37 & 248.142857142857 & 144.099998347708 & 400 \tabularnewline
38 & 187.428571428571 & 55.6203114663973 & 174 \tabularnewline
39 & 287 & 72.9200475406683 & 201 \tabularnewline
40 & 244.857142857143 & 109.376153055147 & 286 \tabularnewline
41 & 267 & 95.7357474161733 & 285 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=157998&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]599.142857142857[/C][C]502.159147605428[/C][C]1419[/C][/ROW]
[ROW][C]2[/C][C]470.285714285714[/C][C]188.712050741965[/C][C]547[/C][/ROW]
[ROW][C]3[/C][C]749.571428571429[/C][C]353.980158174088[/C][C]1051[/C][/ROW]
[ROW][C]4[/C][C]724.142857142857[/C][C]245.606343954052[/C][C]568[/C][/ROW]
[ROW][C]5[/C][C]533.142857142857[/C][C]141.377070950265[/C][C]419[/C][/ROW]
[ROW][C]6[/C][C]546[/C][C]372.052415662095[/C][C]922[/C][/ROW]
[ROW][C]7[/C][C]717.571428571429[/C][C]325.795363760166[/C][C]924[/C][/ROW]
[ROW][C]8[/C][C]830[/C][C]456.870878914382[/C][C]1305[/C][/ROW]
[ROW][C]9[/C][C]629.571428571429[/C][C]373.150486686385[/C][C]1058[/C][/ROW]
[ROW][C]10[/C][C]787.571428571429[/C][C]218.297852442374[/C][C]690[/C][/ROW]
[ROW][C]11[/C][C]561.285714285714[/C][C]140.292212050081[/C][C]335[/C][/ROW]
[ROW][C]12[/C][C]612.285714285714[/C][C]149.522255072296[/C][C]432[/C][/ROW]
[ROW][C]13[/C][C]577[/C][C]198.964821011153[/C][C]570[/C][/ROW]
[ROW][C]14[/C][C]639.428571428571[/C][C]332.760603208401[/C][C]914[/C][/ROW]
[ROW][C]15[/C][C]613.142857142857[/C][C]173.158336570347[/C][C]433[/C][/ROW]
[ROW][C]16[/C][C]695.857142857143[/C][C]269.538141129988[/C][C]793[/C][/ROW]
[ROW][C]17[/C][C]584.857142857143[/C][C]260.023991567079[/C][C]683[/C][/ROW]
[ROW][C]18[/C][C]468.714285714286[/C][C]135.492575793798[/C][C]454[/C][/ROW]
[ROW][C]19[/C][C]348.714285714286[/C][C]180.325367309311[/C][C]449[/C][/ROW]
[ROW][C]20[/C][C]462.571428571429[/C][C]314.808331710401[/C][C]829[/C][/ROW]
[ROW][C]21[/C][C]495.142857142857[/C][C]224.53984692509[/C][C]690[/C][/ROW]
[ROW][C]22[/C][C]591.285714285714[/C][C]338.160570481793[/C][C]979[/C][/ROW]
[ROW][C]23[/C][C]694.428571428571[/C][C]351.756003096302[/C][C]927[/C][/ROW]
[ROW][C]24[/C][C]618[/C][C]356.427178163132[/C][C]1046[/C][/ROW]
[ROW][C]25[/C][C]677.428571428571[/C][C]351.158490875966[/C][C]1137[/C][/ROW]
[ROW][C]26[/C][C]547.571428571429[/C][C]181.603833607533[/C][C]542[/C][/ROW]
[ROW][C]27[/C][C]344.285714285714[/C][C]299.474937340737[/C][C]755[/C][/ROW]
[ROW][C]28[/C][C]400.285714285714[/C][C]97.1128455041081[/C][C]259[/C][/ROW]
[ROW][C]29[/C][C]318.142857142857[/C][C]156.285453120701[/C][C]425[/C][/ROW]
[ROW][C]30[/C][C]411.571428571429[/C][C]152.212414236221[/C][C]436[/C][/ROW]
[ROW][C]31[/C][C]306.714285714286[/C][C]91.7981740662894[/C][C]218[/C][/ROW]
[ROW][C]32[/C][C]313.428571428571[/C][C]159.807026485964[/C][C]451[/C][/ROW]
[ROW][C]33[/C][C]306.714285714286[/C][C]160.467768607608[/C][C]488[/C][/ROW]
[ROW][C]34[/C][C]314[/C][C]126.547751198247[/C][C]339[/C][/ROW]
[ROW][C]35[/C][C]277[/C][C]79.9666597193272[/C][C]189[/C][/ROW]
[ROW][C]36[/C][C]358.714285714286[/C][C]117.498530892538[/C][C]298[/C][/ROW]
[ROW][C]37[/C][C]248.142857142857[/C][C]144.099998347708[/C][C]400[/C][/ROW]
[ROW][C]38[/C][C]187.428571428571[/C][C]55.6203114663973[/C][C]174[/C][/ROW]
[ROW][C]39[/C][C]287[/C][C]72.9200475406683[/C][C]201[/C][/ROW]
[ROW][C]40[/C][C]244.857142857143[/C][C]109.376153055147[/C][C]286[/C][/ROW]
[ROW][C]41[/C][C]267[/C][C]95.7357474161733[/C][C]285[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=157998&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=157998&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:

Standard Deviation-Mean Plot
SectionMeanStandard DeviationRange
1599.142857142857502.1591476054281419
2470.285714285714188.712050741965547
3749.571428571429353.9801581740881051
4724.142857142857245.606343954052568
5533.142857142857141.377070950265419
6546372.052415662095922
7717.571428571429325.795363760166924
8830456.8708789143821305
9629.571428571429373.1504866863851058
10787.571428571429218.297852442374690
11561.285714285714140.292212050081335
12612.285714285714149.522255072296432
13577198.964821011153570
14639.428571428571332.760603208401914
15613.142857142857173.158336570347433
16695.857142857143269.538141129988793
17584.857142857143260.023991567079683
18468.714285714286135.492575793798454
19348.714285714286180.325367309311449
20462.571428571429314.808331710401829
21495.142857142857224.53984692509690
22591.285714285714338.160570481793979
23694.428571428571351.756003096302927
24618356.4271781631321046
25677.428571428571351.1584908759661137
26547.571428571429181.603833607533542
27344.285714285714299.474937340737755
28400.28571428571497.1128455041081259
29318.142857142857156.285453120701425
30411.571428571429152.212414236221436
31306.71428571428691.7981740662894218
32313.428571428571159.807026485964451
33306.714285714286160.467768607608488
34314126.547751198247339
3527779.9666597193272189
36358.714285714286117.498530892538298
37248.142857142857144.099998347708400
38187.42857142857155.6203114663973174
3928772.9200475406683201
40244.857142857143109.376153055147286
4126795.7357474161733285






Regression: S.E.(k) = alpha + beta * Mean(k)
alpha-11.288419814701
beta0.467499182655425
S.D.0.0719176389081343
T-STAT6.5004801291182
p-value1.04678613040874e-07

\begin{tabular}{lllllllll}
\hline
Regression: S.E.(k) = alpha + beta * Mean(k) \tabularnewline
alpha & -11.288419814701 \tabularnewline
beta & 0.467499182655425 \tabularnewline
S.D. & 0.0719176389081343 \tabularnewline
T-STAT & 6.5004801291182 \tabularnewline
p-value & 1.04678613040874e-07 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=157998&T=2

[TABLE]
[ROW][C]Regression: S.E.(k) = alpha + beta * Mean(k)[/C][/ROW]
[ROW][C]alpha[/C][C]-11.288419814701[/C][/ROW]
[ROW][C]beta[/C][C]0.467499182655425[/C][/ROW]
[ROW][C]S.D.[/C][C]0.0719176389081343[/C][/ROW]
[ROW][C]T-STAT[/C][C]6.5004801291182[/C][/ROW]
[ROW][C]p-value[/C][C]1.04678613040874e-07[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=157998&T=2

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

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


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

Regression: S.E.(k) = alpha + beta * Mean(k)
alpha-11.288419814701
beta0.467499182655425
S.D.0.0719176389081343
T-STAT6.5004801291182
p-value1.04678613040874e-07






Regression: ln S.E.(k) = alpha + beta * ln Mean(k)
alpha-1.45963861995743
beta1.09470352293202
S.D.0.141339290198805
T-STAT7.74521735175147
p-value2.0778008532972e-09
Lambda-0.0947035229320221

\begin{tabular}{lllllllll}
\hline
Regression: ln S.E.(k) = alpha + beta * ln Mean(k) \tabularnewline
alpha & -1.45963861995743 \tabularnewline
beta & 1.09470352293202 \tabularnewline
S.D. & 0.141339290198805 \tabularnewline
T-STAT & 7.74521735175147 \tabularnewline
p-value & 2.0778008532972e-09 \tabularnewline
Lambda & -0.0947035229320221 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=157998&T=3

[TABLE]
[ROW][C]Regression: ln S.E.(k) = alpha + beta * ln Mean(k)[/C][/ROW]
[ROW][C]alpha[/C][C]-1.45963861995743[/C][/ROW]
[ROW][C]beta[/C][C]1.09470352293202[/C][/ROW]
[ROW][C]S.D.[/C][C]0.141339290198805[/C][/ROW]
[ROW][C]T-STAT[/C][C]7.74521735175147[/C][/ROW]
[ROW][C]p-value[/C][C]2.0778008532972e-09[/C][/ROW]
[ROW][C]Lambda[/C][C]-0.0947035229320221[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=157998&T=3

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

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


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

Regression: ln S.E.(k) = alpha + beta * ln Mean(k)
alpha-1.45963861995743
beta1.09470352293202
S.D.0.141339290198805
T-STAT7.74521735175147
p-value2.0778008532972e-09
Lambda-0.0947035229320221


Figures (Output of Computation)

Input Parameters & R Code

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