R version 2.9.0 (2009-04-17)
Copyright (C) 2009 The R Foundation for Statistical Computing
ISBN 3-900051-07-0

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> x <- c(-0.0447135253960225
+ ,-0.0681917363421248
+ ,0.197918284222177
+ ,0.364977451074597
+ ,1.51337974853374
+ ,-0.359462346770864
+ ,0.457274701618375
+ ,-0.576200797223743
+ ,-0.35806159298279
+ ,1.26000921879800
+ ,-1.34266167067388
+ ,-0.353289536833081
+ ,0.161396045139561
+ ,-0.857822824071549
+ ,-0.555144480575985
+ ,-0.727027306896834
+ ,-0.369041527982607
+ ,-0.0578965046249842
+ ,-0.769036314017041
+ ,-0.853702996099126
+ ,0.700855327126076
+ ,-0.67605835057151
+ ,0.868578314018324
+ ,-0.108845849033489
+ ,-1.57887213540104
+ ,-1.12268894715059
+ ,0.396924811287499
+ ,0.0148501374104653
+ ,0.140259622902458
+ ,0.369865280208383
+ ,-0.279776174113751
+ ,0.304546119543323
+ ,0.892466305762528
+ ,0.0893796274958521
+ ,0.135269038003123
+ ,-1.20736792439930
+ ,-0.230372906495734
+ ,-0.0877968012618119
+ ,-0.33323266650054
+ ,0.601966581020134
+ ,0.489790368570760
+ ,-0.30040059136885
+ ,0.101350920891626
+ ,0.596346925270986
+ ,-0.476839102991622
+ ,-0.418379495419168
+ ,-0.117112854652920
+ ,-0.147180675626801
+ ,0.532294134646671
+ ,-0.976528372414816
+ ,0.331179899785833
+ ,0.869619582675694
+ ,-0.452578724852337
+ ,-0.421389632285535
+ ,-0.0683598944374235
+ ,0.326102832750419
+ ,0.84894940837525
+ ,0.455827472703429
+ ,0.823472792059655
+ ,0.933735481712974
+ ,1.23343828434357
+ ,0.408338767056766
+ ,0.287975024888324
+ ,-0.211204160843567
+ ,-0.267469446531546
+ ,-1.11645456256678
+ ,-0.0317245230877202
+ ,0.547972521125301
+ ,0.120802508791779
+ ,-0.868321690772969
+ ,-0.311155435761481
+ ,-0.380688690591098
+ ,-0.305618207625699
+ ,-0.409940481502841
+ ,-0.00967747172687254
+ ,0.495426680797454
+ ,-0.70434733099138
+ ,-0.0634697192462326
+ ,-0.513898520689418
+ ,0.589511832114578
+ ,-0.349423083406549
+ ,0.641305348572241
+ ,0.0343657044269518
+ ,-0.0527523752155572
+ ,-0.880138188317385
+ ,-0.110617568497234
+ ,0.725017900327504
+ ,-0.505210310136047
+ ,1.01506156059005
+ ,0.432165289840235
+ ,-0.605966973659667
+ ,-0.99965767981201
+ ,-0.273898172730602
+ ,0.276039109320686
+ ,1.00336917683793
+ ,0.0129975707447026
+ ,-0.560227463080412
+ ,-0.549704180559844
+ ,-0.264710308451806
+ ,0.279629152070149
+ ,0.678639057401087
+ ,0.661068987945098
+ ,-0.704450849658691
+ ,-0.201260637302684
+ ,0.350125495958601
+ ,0.51207399543742
+ ,0.855206697928782
+ ,0.194069017384391
+ ,0.723928491599931
+ ,1.1813100622767
+ ,0.142880603048506
+ ,0.0179250176101248
+ ,-0.497957163141791
+ ,-0.299719858005128
+ ,0.135788254277837
+ ,-0.170331294462608
+ ,-1.03309845887421
+ ,-0.173818867620375
+ ,-0.963023604159095
+ ,0.698380354889
+ ,-0.367088748962493
+ ,-0.263848199408000
+ ,-0.418818686259234
+ ,-1.12067646578046
+ ,0.0500591744429748
+ ,0.608904151186532
+ ,0.134690460462483
+ ,0.33004133104308
+ ,0.127838527435568
+ ,0.581318960613691
+ ,-0.0387083124201542
+ ,-0.870097428406274
+ ,-0.46211368029843
+ ,-0.775456171566771
+ ,1.39586997252140
+ ,-0.373271811454794
+ ,-0.268080285209629
+ ,1.08656249985181
+ ,-0.325880205863577
+ ,0.306618345261008
+ ,-0.552774334353198
+ ,0.92873555615258
+ ,0.0930551939788035
+ ,0.793725089311601
+ ,-0.065520090108497
+ ,0.319389284571386
+ ,-0.46622517579406
+ ,-0.262872950917163
+ ,0.0101377862503099
+ ,0.166709648190932
+ ,-0.279488745822847
+ ,-0.416437688916389
+ ,-0.22115546346038
+ ,-0.180257621944250
+ ,-0.698512011653876
+ ,-0.0309656726131541
+ ,-0.218026906428136
+ ,-0.373584097623305
+ ,0.052951771649411
+ ,0.162727178662852
+ ,0.827781264436336
+ ,-0.724326083790065
+ ,-0.470004768297604
+ ,1.04570519030629
+ ,-0.192863515103884
+ ,-0.571180444692155
+ ,0.531291251566343
+ ,-0.305718253125133
+ ,0.33805003414274
+ ,0.476242057434918
+ ,-0.813898733638944
+ ,-0.0347525563928053
+ ,0.307275497587149
+ ,0.298265382877775
+ ,-0.356205719078896
+ ,-0.356604197590328
+ ,0.161914543778047
+ ,0.157622162847613
+ ,0.301928829658718
+ ,-0.561982089534344
+ ,-0.054344347508442
+ ,-0.242625267253262
+ ,-0.0291186961212278
+ ,0.228470776412080
+ ,-0.510675358256579
+ ,1.12387579697604
+ ,-1.12598819760342
+ ,0.290323801161599
+ ,0.190186300269668
+ ,0.0853118886191468
+ ,-0.708039034695266
+ ,0.0821218447021978
+ ,-0.307060659060198
+ ,0.525053530012375
+ ,-0.601608762786724
+ ,0.538181952703111
+ ,-0.306512089790133
+ ,0.654542109027372
+ ,-0.537375053347636
+ ,-0.186945164903575
+ ,-0.0415284808030801
+ ,-0.0882629264500877
+ ,-0.256492242506079
+ ,-0.413059044491092
+ ,-0.270151412032309
+ ,-0.435615332936426
+ ,0.546649723056766
+ ,0.323884703994657
+ ,0.661931879765847
+ ,0.402774072398312
+ ,-0.428180087570848
+ ,-0.185363916598877
+ ,-0.146275794492277
+ ,0.177901356497660
+ ,-0.370503402127386
+ ,0.205238744482440
+ ,-0.0894107314201245
+ ,-0.0207802774234968
+ ,-0.00240147466918447
+ ,0.0272373003487647
+ ,-0.304012066368563
+ ,1.50787095266035
+ ,0.259049422299152
+ ,-0.546358234600257
+ ,0.581469091275693
+ ,0.330213566204811
+ ,-0.983366983108753
+ ,-0.736262917615728
+ ,-0.338743982691545
+ ,0.760537651914641
+ ,-0.261709498346797
+ ,-0.47604803547735
+ ,-0.110367517983504
+ ,1.69081027549721
+ ,0.149871596331350
+ ,-0.894444542196924
+ ,0.0854708075667523
+ ,-0.117915923744172
+ ,-0.215892880169748
+ ,-0.394091945119024
+ ,0.0924265412117942
+ ,0.0585918903210802
+ ,0.253245928619104
+ ,0.370567963868723
+ ,-0.38652413184425
+ ,0.447110927340878
+ ,0.623154200281104
+ ,-0.184203534512804
+ ,0.70547796714482
+ ,-0.317031093509232
+ ,-0.92747549796465
+ ,-0.039375681616147
+ ,1.00274784411106
+ ,0.812619095704321
+ ,0.298292892235012
+ ,0.152550524539197
+ ,-0.150639740840877
+ ,0.110741666419495
+ ,0.552786388883019
+ ,0.0434949724888247
+ ,0.363209473863399
+ ,-0.0227973565953720
+ ,0.504138360948928
+ ,0.138778955376779
+ ,-0.0853038304936802
+ ,-0.496485082805071
+ ,-0.0852251450917002
+ ,-0.247830857149674
+ ,-0.120849074890955
+ ,-0.451770068374317
+ ,0.612150763626651
+ ,0.35062535298691
+ ,-0.35929067221423
+ ,-0.484436552186736
+ ,0.339431103527959
+ ,-0.0417943935488771
+ ,-0.0100069109609526
+ ,-0.403912584026003
+ ,0.151831352275733
+ ,-0.229700910015304
+ ,-0.217361534162363
+ ,-0.332188782691632
+ ,0.264418283965544
+ ,0.176869530719773
+ ,-0.176677848623492
+ ,-0.135670353522087
+ ,-0.827944073126056
+ ,-0.0722730790378322
+ ,-0.117607467218364
+ ,0.314635302823227
+ ,-0.154386069584883
+ ,0.163002829796398
+ ,-0.244739185557085
+ ,-0.204481508560033
+ ,0.0360261045935815
+ ,0.00417180929449017
+ ,0.266111923849542
+ ,-0.65100315551287
+ ,0.589994645813113
+ ,0.312322966733607
+ ,0.552669708368232
+ ,-0.0962290660197571
+ ,-0.467083890564838
+ ,-0.198196760456308
+ ,0.395575462290874
+ ,0.175735179347610
+ ,0.315653466585352
+ ,-0.161149292211250
+ ,0.88204080346832
+ ,0.0637844933947768
+ ,0.858633498510782
+ ,0.822761091616062
+ ,1.77266813303013
+ ,-0.566982300074028
+ ,0.153260805137179
+ ,-0.279233420311874
+ ,0.0495717686133491
+ ,-1.16973347629522
+ ,-0.0821091546617858
+ ,0.0681024760498389
+ ,-0.201544761070500
+ ,0.0764371954094521
+ ,-0.526359969868041
+ ,-0.0804137024998847
+ ,-0.390603365076393
+ ,-0.366201255689232
+ ,-0.236325223213095
+ ,-0.0197745234670869
+ ,-0.400592939434611
+ ,0.273305576912483
+ ,0.571671016934307
+ ,0.355106915028324
+ ,-0.598053523446333
+ ,0.0680124459677498
+ ,0.0825158104754481
+ ,-0.236688938906495
+ ,-0.720993011661793
+ ,0.445855834707783
+ ,-0.278184253464566
+ ,-0.813695595258521
+ ,0.0382227577078328
+ ,0.287981855878777
+ ,-0.397401149791228
+ ,0.45344200538109
+ ,-0.336993623900836
+ ,0.0350017590941607
+ ,-0.129073953075969
+ ,-0.929487174586825
+ ,0.112538667866079
+ ,-0.266214449984403
+ ,0.318919618407674
+ ,-0.235823651106797
+ ,0.312056159183962
+ ,-0.607348852365163
+ ,0.821439691373018
+ ,-0.330769451500635
+ ,-0.0368471782124595
+ ,-0.223411452689536
+ ,-0.0162392677684860
+ ,0.494328806219962)
> par1 = '12'
> #'GNU S' R Code compiled by R2WASP v. 1.0.44 ()
> #Author: Prof. Dr. P. Wessa
> #To cite this work: AUTHOR(S), (YEAR), YOUR SOFTWARE TITLE (vNUMBER) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/rwasp_YOURPAGE.wasp/
> #Source of accompanying publication: Office for Research, Development, and Education
> #Technical description: Write here your technical program description (don't use hard returns!)
> par1 <- as.numeric(par1)
> (n <- length(x))
[1] 360
> (np <- floor(n / par1))
[1] 30
> 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
             [,1]       [,2]        [,3]       [,4]       [,5]        [,6]
 [1,] -0.04471353  0.1613960 -1.57887214 -0.2303729  0.5322941  1.23343828
 [2,] -0.06819174 -0.8578228 -1.12268895 -0.0877968 -0.9765284  0.40833877
 [3,]  0.19791828 -0.5551445  0.39692481 -0.3332327  0.3311799  0.28797502
 [4,]  0.36497745 -0.7270273  0.01485014  0.6019666  0.8696196 -0.21120416
 [5,]  1.51337975 -0.3690415  0.14025962  0.4897904 -0.4525787 -0.26746945
 [6,] -0.35946235 -0.0578965  0.36986528 -0.3004006 -0.4213896 -1.11645456
 [7,]  0.45727470 -0.7690363 -0.27977617  0.1013509 -0.0683599 -0.03172452
 [8,] -0.57620080 -0.8537030  0.30454612  0.5963469  0.3261028  0.54797252
 [9,] -0.35806159  0.7008553  0.89246631 -0.4768391  0.8489494  0.12080251
[10,]  1.26000922 -0.6760584  0.08937963 -0.4183795  0.4558275 -0.86832169
[11,] -1.34266167  0.8685783  0.13526904 -0.1171129  0.8234728 -0.31115544
[12,] -0.35328954 -0.1088458 -1.20736792 -0.1471807  0.9337355 -0.38068869
              [,7]        [,8]       [,9]       [,10]       [,11]      [,12]
 [1,] -0.305618208 -0.88013819 -0.5602275  0.72392849 -0.36708875 -0.4621137
 [2,] -0.409940482 -0.11061757 -0.5497042  1.18131006 -0.26384820 -0.7754562
 [3,] -0.009677472  0.72501790 -0.2647103  0.14288060 -0.41881869  1.3958700
 [4,]  0.495426681 -0.50521031  0.2796292  0.01792502 -1.12067647 -0.3732718
 [5,] -0.704347331  1.01506156  0.6786391 -0.49795716  0.05005917 -0.2680803
 [6,] -0.063469719  0.43216529  0.6610690 -0.29971986  0.60890415  1.0865625
 [7,] -0.513898521 -0.60596697 -0.7044508  0.13578825  0.13469046 -0.3258802
 [8,]  0.589511832 -0.99965768 -0.2012606 -0.17033129  0.33004133  0.3066183
 [9,] -0.349423083 -0.27389817  0.3501255 -1.03309846  0.12783853 -0.5527743
[10,]  0.641305349  0.27603911  0.5120740 -0.17381887  0.58131896  0.9287356
[11,]  0.034365704  1.00336918  0.8552067 -0.96302360 -0.03870831  0.0930552
[12,] -0.052752375  0.01299757  0.1940690  0.69838035 -0.87009743  0.7937251
            [,13]       [,14]       [,15]       [,16]       [,17]      [,18]
 [1,] -0.06552009 -0.21802691  0.33805003 -0.05434435 -0.30706066 -0.2701514
 [2,]  0.31938928 -0.37358410  0.47624206 -0.24262527  0.52505353 -0.4356153
 [3,] -0.46622518  0.05295177 -0.81389873 -0.02911870 -0.60160876  0.5466497
 [4,] -0.26287295  0.16272718 -0.03475256  0.22847078  0.53818195  0.3238847
 [5,]  0.01013779  0.82778126  0.30727550 -0.51067536 -0.30651209  0.6619319
 [6,]  0.16670965 -0.72432608  0.29826538  1.12387580  0.65454211  0.4027741
 [7,] -0.27948875 -0.47000477 -0.35620572 -1.12598820 -0.53737505 -0.4281801
 [8,] -0.41643769  1.04570519 -0.35660420  0.29032380 -0.18694516 -0.1853639
 [9,] -0.22115546 -0.19286352  0.16191454  0.19018630 -0.04152848 -0.1462758
[10,] -0.18025762 -0.57118044  0.15762216  0.08531189 -0.08826293  0.1779014
[11,] -0.69851201  0.53129125  0.30192883 -0.70803903 -0.25649224 -0.3705034
[12,] -0.03096567 -0.30571825 -0.56198209  0.08212184 -0.41305904  0.2052387
             [,19]      [,20]       [,21]       [,22]       [,23]       [,24]
 [1,] -0.089410731 -0.3387440  0.09242654  1.00274784 -0.08530383 -0.01000691
 [2,] -0.020780277  0.7605377  0.05859189  0.81261910 -0.49648508 -0.40391258
 [3,] -0.002401475 -0.2617095  0.25324593  0.29829289 -0.08522515  0.15183135
 [4,]  0.027237300 -0.4760480  0.37056796  0.15255052 -0.24783086 -0.22970091
 [5,] -0.304012066 -0.1103675 -0.38652413 -0.15063974 -0.12084907 -0.21736153
 [6,]  1.507870953  1.6908103  0.44711093  0.11074167 -0.45177007 -0.33218878
 [7,]  0.259049422  0.1498716  0.62315420  0.55278639  0.61215076  0.26441828
 [8,] -0.546358235 -0.8944445 -0.18420353  0.04349497  0.35062535  0.17686953
 [9,]  0.581469091  0.0854708  0.70547797  0.36320947 -0.35929067 -0.17667785
[10,]  0.330213566 -0.1179159 -0.31703109 -0.02279736 -0.48443655 -0.13567035
[11,] -0.983366983 -0.2158929 -0.92747550  0.50413836  0.33943110 -0.82794407
[12,] -0.736262918 -0.3940919 -0.03937568  0.13877896 -0.04179439 -0.07227308
             [,25]       [,26]       [,27]       [,28]       [,29]       [,30]
 [1,] -0.117607467  0.55266971  1.77266813 -0.39060337 -0.72099301  0.11253867
 [2,]  0.314635303 -0.09622907 -0.56698230 -0.36620126  0.44585583 -0.26621445
 [3,] -0.154386070 -0.46708389  0.15326081 -0.23632522 -0.27818425  0.31891962
 [4,]  0.163002830 -0.19819676 -0.27923342 -0.01977452 -0.81369560 -0.23582365
 [5,] -0.244739186  0.39557546  0.04957177 -0.40059294  0.03822276  0.31205616
 [6,] -0.204481509  0.17573518 -1.16973348  0.27330558  0.28798186 -0.60734885
 [7,]  0.036026105  0.31565347 -0.08210915  0.57167102 -0.39740115  0.82143969
 [8,]  0.004171809 -0.16114929  0.06810248  0.35510692  0.45344201 -0.33076945
 [9,]  0.266111924  0.88204080 -0.20154476 -0.59805352 -0.33699362 -0.03684718
[10,] -0.651003156  0.06378449  0.07643720  0.06801245  0.03500176 -0.22341145
[11,]  0.589994646  0.85863350 -0.52635997  0.08251581 -0.12907395 -0.01623927
[12,]  0.312322967  0.82276109 -0.08041370 -0.23668894 -0.92948717  0.49432881
> 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
 [1]  0.057581517 -0.270312206 -0.153762020 -0.026821692  0.266860415
 [6] -0.049040950 -0.054043135  0.007430143  0.104204914 -0.019811372
[11] -0.103865436  0.153915847 -0.177099892 -0.019603951 -0.006845399
[16] -0.055875041 -0.085088903  0.040190878  0.001937304 -0.010210333
[21]  0.057997123  0.317160256 -0.089231538 -0.151051409  0.026170683
[26]  0.262016225 -0.065528034 -0.074802334 -0.195443712  0.028552387
> arr.sd
 [1] 0.7829586 0.5951422 0.7528938 0.3883984 0.6193960 0.6336328 0.4391137
 [8] 0.6947119 0.5412241 0.6628788 0.5325257 0.7309925 0.2806013 0.5620761
[15] 0.4155649 0.5644739 0.4292356 0.3928458 0.6534581 0.6676736 0.4675464
[22] 0.3463173 0.3597988 0.2960949 0.3300548 0.4530246 0.6892586 0.3553454
[29] 0.4712705 0.4019716
> arr.range
 [1] 2.856041 1.726401 2.471338 1.078806 1.910264 2.349893 1.345653 2.014719
 [9] 1.559658 2.214409 1.729581 2.171326 1.017901 1.770031 1.290141 2.249864
[17] 1.256151 1.097547 2.491238 2.585255 1.632953 1.153388 1.108636 1.092362
[25] 1.240998 1.349125 2.942402 1.169725 1.382929 1.428789
> (lm1 <- lm(arr.sd~arr.mean))

Call:
lm(formula = arr.sd ~ arr.mean)

Coefficients:
(Intercept)     arr.mean  
    0.51766      0.06746  

> (lnlm1 <- lm(log(arr.sd)~log(arr.mean)))

Call:
lm(formula = log(arr.sd) ~ log(arr.mean))

Coefficients:
  (Intercept)  log(arr.mean)  
     -0.78321       -0.03952  

Warning message:
In log(arr.mean) : NaNs produced
> (lm2 <- lm(arr.range~arr.mean))

Call:
lm(formula = arr.range ~ arr.mean)

Coefficients:
(Intercept)     arr.mean  
    1.72343      0.05371  

> postscript(file="/var/www/html/rcomp/tmp/123wn1259696260.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> plot(arr.mean,arr.sd,main='Standard Deviation-Mean Plot',xlab='mean',ylab='standard deviation')
> dev.off()
null device 
          1 
> postscript(file="/var/www/html/rcomp/tmp/2d6bd1259696260.ps",horizontal=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> plot(arr.mean,arr.range,main='Range-Mean Plot',xlab='mean',ylab='range')
> dev.off()
null device 
          1 
> 
> #Note: the /var/www/html/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/www/html/rcomp/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="/var/www/html/rcomp/tmp/31bni1259696260.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="/var/www/html/rcomp/tmp/42zpd1259696260.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="/var/www/html/rcomp/tmp/5pw0m1259696260.tab") 
> 
> system("convert tmp/123wn1259696260.ps tmp/123wn1259696260.png")
> system("convert tmp/2d6bd1259696260.ps tmp/2d6bd1259696260.png")
> 
> 
> proc.time()
   user  system elapsed 
  0.563   0.278   0.657