R version 3.0.2 (2013-09-25) -- "Frisbee Sailing"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: i686-pc-linux-gnu (32-bit)

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 <- array(list(1
+ ,0.00784
+ ,0.01109
+ ,0.02182
+ ,0.02211
+ ,21.033
+ ,0.414783
+ ,0.815285
+ ,-4.813031
+ ,2.301442
+ ,0.284654
+ ,1
+ ,0.00968
+ ,0.01394
+ ,0.03134
+ ,0.01929
+ ,19.085
+ ,0.458359
+ ,0.819521
+ ,-4.075192
+ ,2.486855
+ ,0.368674
+ ,1
+ ,0.0105
+ ,0.01633
+ ,0.02757
+ ,0.01309
+ ,20.651
+ ,0.429895
+ ,0.825288
+ ,-4.443179
+ ,2.342259
+ ,0.332634
+ ,1
+ ,0.00997
+ ,0.01505
+ ,0.02924
+ ,0.01353
+ ,20.644
+ ,0.434969
+ ,0.819235
+ ,-4.117501
+ ,2.405554
+ ,0.368975
+ ,1
+ ,0.01284
+ ,0.01966
+ ,0.0349
+ ,0.01767
+ ,19.649
+ ,0.417356
+ ,0.823484
+ ,-3.747787
+ ,2.33218
+ ,0.410335
+ ,1
+ ,0.00968
+ ,0.01388
+ ,0.02328
+ ,0.01222
+ ,21.378
+ ,0.415564
+ ,0.825069
+ ,-4.242867
+ ,2.18756
+ ,0.357775
+ ,1
+ ,0.00333
+ ,0.00466
+ ,0.00779
+ ,0.00607
+ ,24.886
+ ,0.59604
+ ,0.764112
+ ,-5.634322
+ ,1.854785
+ ,0.211756
+ ,1
+ ,0.0029
+ ,0.00431
+ ,0.00829
+ ,0.00344
+ ,26.892
+ ,0.63742
+ ,0.763262
+ ,-6.167603
+ ,2.064693
+ ,0.163755
+ ,1
+ ,0.00551
+ ,0.0088
+ ,0.01073
+ ,0.0107
+ ,21.812
+ ,0.615551
+ ,0.773587
+ ,-5.498678
+ ,2.322511
+ ,0.231571
+ ,1
+ ,0.00532
+ ,0.00803
+ ,0.01441
+ ,0.01022
+ ,21.862
+ ,0.547037
+ ,0.798463
+ ,-5.011879
+ ,2.432792
+ ,0.271362
+ ,1
+ ,0.00505
+ ,0.00763
+ ,0.01079
+ ,0.01166
+ ,21.118
+ ,0.611137
+ ,0.776156
+ ,-5.24977
+ ,2.407313
+ ,0.24974
+ ,1
+ ,0.0054
+ ,0.00844
+ ,0.01424
+ ,0.01141
+ ,21.414
+ ,0.58339
+ ,0.79252
+ ,-4.960234
+ ,2.642476
+ ,0.275931
+ ,1
+ ,0.00293
+ ,0.00355
+ ,0.00656
+ ,0.00581
+ ,25.703
+ ,0.4606
+ ,0.646846
+ ,-6.547148
+ ,2.041277
+ ,0.138512
+ ,1
+ ,0.0039
+ ,0.00496
+ ,0.00728
+ ,0.01041
+ ,24.889
+ ,0.430166
+ ,0.665833
+ ,-5.660217
+ ,2.519422
+ ,0.199889
+ ,1
+ ,0.00294
+ ,0.00364
+ ,0.01064
+ ,0.00609
+ ,24.922
+ ,0.474791
+ ,0.654027
+ ,-6.105098
+ ,2.125618
+ ,0.1701
+ ,1
+ ,0.00369
+ ,0.00471
+ ,0.00772
+ ,0.00839
+ ,25.175
+ ,0.565924
+ ,0.658245
+ ,-5.340115
+ ,2.205546
+ ,0.234589
+ ,1
+ ,0.00544
+ ,0.00632
+ ,0.00969
+ ,0.01859
+ ,22.333
+ ,0.56738
+ ,0.644692
+ ,-5.44004
+ ,2.264501
+ ,0.218164
+ ,1
+ ,0.00718
+ ,0.00853
+ ,0.01441
+ ,0.02919
+ ,20.376
+ ,0.631099
+ ,0.605417
+ ,-2.93107
+ ,3.007463
+ ,0.430788
+ ,1
+ ,0.00742
+ ,0.01092
+ ,0.02471
+ ,0.0316
+ ,17.28
+ ,0.665318
+ ,0.719467
+ ,-3.949079
+ ,3.10901
+ ,0.377429
+ ,1
+ ,0.00768
+ ,0.01116
+ ,0.01721
+ ,0.03365
+ ,17.153
+ ,0.649554
+ ,0.68608
+ ,-4.554466
+ ,2.856676
+ ,0.322111
+ ,1
+ ,0.0084
+ ,0.01285
+ ,0.01667
+ ,0.03871
+ ,17.536
+ ,0.660125
+ ,0.704087
+ ,-4.095442
+ ,2.73971
+ ,0.365391
+ ,1
+ ,0.0048
+ ,0.00696
+ ,0.02021
+ ,0.01849
+ ,19.493
+ ,0.629017
+ ,0.698951
+ ,-5.18696
+ ,2.557536
+ ,0.259765
+ ,1
+ ,0.00442
+ ,0.00661
+ ,0.02228
+ ,0.0128
+ ,22.468
+ ,0.61906
+ ,0.679834
+ ,-4.330956
+ ,2.916777
+ ,0.285695
+ ,1
+ ,0.00476
+ ,0.00663
+ ,0.02187
+ ,0.0184
+ ,20.422
+ ,0.537264
+ ,0.686894
+ ,-5.248776
+ ,2.547508
+ ,0.253556
+ ,1
+ ,0.00742
+ ,0.0114
+ ,0.00738
+ ,0.01778
+ ,23.831
+ ,0.397937
+ ,0.732479
+ ,-5.557447
+ ,2.692176
+ ,0.215961
+ ,1
+ ,0.00633
+ ,0.00948
+ ,0.01732
+ ,0.02887
+ ,22.066
+ ,0.522746
+ ,0.737948
+ ,-5.571843
+ ,2.846369
+ ,0.219514
+ ,1
+ ,0.00455
+ ,0.0075
+ ,0.00889
+ ,0.01095
+ ,25.908
+ ,0.418622
+ ,0.720916
+ ,-6.18359
+ ,2.589702
+ ,0.147403
+ ,1
+ ,0.00496
+ ,0.00749
+ ,0.00883
+ ,0.01328
+ ,25.119
+ ,0.358773
+ ,0.726652
+ ,-6.27169
+ ,2.314209
+ ,0.162999
+ ,1
+ ,0.0031
+ ,0.00476
+ ,0.00769
+ ,0.00677
+ ,25.97
+ ,0.470478
+ ,0.676258
+ ,-7.120925
+ ,2.241742
+ ,0.108514
+ ,1
+ ,0.00502
+ ,0.00841
+ ,0.00793
+ ,0.0117
+ ,25.678
+ ,0.427785
+ ,0.723797
+ ,-6.635729
+ ,1.957961
+ ,0.135242
+ ,0
+ ,0.00289
+ ,0.00498
+ ,0.00563
+ ,0.00339
+ ,26.775
+ ,0.422229
+ ,0.741367
+ ,-7.3483
+ ,1.743867
+ ,0.085569
+ ,0
+ ,0.00241
+ ,0.00402
+ ,0.00504
+ ,0.00167
+ ,30.94
+ ,0.432439
+ ,0.742055
+ ,-7.682587
+ ,2.103106
+ ,0.068501
+ ,0
+ ,0.00212
+ ,0.00339
+ ,0.0064
+ ,0.00119
+ ,30.775
+ ,0.465946
+ ,0.738703
+ ,-7.067931
+ ,1.512275
+ ,0.09632
+ ,0
+ ,0.0018
+ ,0.00278
+ ,0.00469
+ ,0.00072
+ ,32.684
+ ,0.368535
+ ,0.742133
+ ,-7.695734
+ ,1.544609
+ ,0.056141
+ ,0
+ ,0.00178
+ ,0.00283
+ ,0.00468
+ ,0.00065
+ ,33.047
+ ,0.340068
+ ,0.741899
+ ,-7.964984
+ ,1.423287
+ ,0.044539
+ ,0
+ ,0.00198
+ ,0.00314
+ ,0.00586
+ ,0.00135
+ ,31.732
+ ,0.344252
+ ,0.742737
+ ,-7.777685
+ ,2.447064
+ ,0.05761
+ ,1
+ ,0.00411
+ ,0.007
+ ,0.01154
+ ,0.00586
+ ,23.216
+ ,0.360148
+ ,0.778834
+ ,-6.149653
+ ,2.477082
+ ,0.165827
+ ,1
+ ,0.00369
+ ,0.00616
+ ,0.00938
+ ,0.0034
+ ,24.951
+ ,0.341435
+ ,0.783626
+ ,-6.006414
+ ,2.536527
+ ,0.173218
+ ,1
+ ,0.00284
+ ,0.00459
+ ,0.00726
+ ,0.00231
+ ,26.738
+ ,0.403884
+ ,0.766209
+ ,-6.452058
+ ,2.269398
+ ,0.141929
+ ,1
+ ,0.00316
+ ,0.00504
+ ,0.00829
+ ,0.00265
+ ,26.31
+ ,0.396793
+ ,0.758324
+ ,-6.006647
+ ,2.382544
+ ,0.160691
+ ,1
+ ,0.00298
+ ,0.00496
+ ,0.00774
+ ,0.00231
+ ,26.822
+ ,0.32648
+ ,0.765623
+ ,-6.647379
+ ,2.374073
+ ,0.130554
+ ,1
+ ,0.00258
+ ,0.00403
+ ,0.00742
+ ,0.00257
+ ,26.453
+ ,0.306443
+ ,0.759203
+ ,-7.044105
+ ,2.361532
+ ,0.11573
+ ,0
+ ,0.00298
+ ,0.00507
+ ,0.01035
+ ,0.0074
+ ,22.736
+ ,0.305062
+ ,0.654172
+ ,-7.31055
+ ,2.416838
+ ,0.095032
+ ,0
+ ,0.00281
+ ,0.0047
+ ,0.01006
+ ,0.00675
+ ,23.145
+ ,0.457702
+ ,0.634267
+ ,-6.793547
+ ,2.256699
+ ,0.117399
+ ,0
+ ,0.0021
+ ,0.00327
+ ,0.00777
+ ,0.00454
+ ,25.368
+ ,0.438296
+ ,0.635285
+ ,-7.057869
+ ,2.330716
+ ,0.09147
+ ,0
+ ,0.00225
+ ,0.0035
+ ,0.00847
+ ,0.00476
+ ,25.032
+ ,0.431285
+ ,0.638928
+ ,-6.99582
+ ,2.3658
+ ,0.102706
+ ,0
+ ,0.00235
+ ,0.0038
+ ,0.00906
+ ,0.00476
+ ,24.602
+ ,0.467489
+ ,0.631653
+ ,-7.156076
+ ,2.392122
+ ,0.097336
+ ,0
+ ,0.00185
+ ,0.00276
+ ,0.00614
+ ,0.00432
+ ,26.805
+ ,0.610367
+ ,0.635204
+ ,-7.31951
+ ,2.028612
+ ,0.086398
+ ,0
+ ,0.00524
+ ,0.00507
+ ,0.00855
+ ,0.00839
+ ,23.162
+ ,0.579597
+ ,0.733659
+ ,-6.439398
+ ,2.079922
+ ,0.133867
+ ,0
+ ,0.00428
+ ,0.00373
+ ,0.0093
+ ,0.00462
+ ,24.971
+ ,0.538688
+ ,0.754073
+ ,-6.482096
+ ,2.054419
+ ,0.128872
+ ,0
+ ,0.00431
+ ,0.00422
+ ,0.01241
+ ,0.00479
+ ,25.135
+ ,0.553134
+ ,0.775933
+ ,-6.650471
+ ,1.840198
+ ,0.103561
+ ,0
+ ,0.00448
+ ,0.00393
+ ,0.01143
+ ,0.00474
+ ,25.03
+ ,0.507504
+ ,0.760361
+ ,-6.689151
+ ,2.431854
+ ,0.105993
+ ,0
+ ,0.00436
+ ,0.00411
+ ,0.01323
+ ,0.00481
+ ,24.692
+ ,0.459766
+ ,0.766204
+ ,-7.072419
+ ,1.972297
+ ,0.119308
+ ,0
+ ,0.0049
+ ,0.00495
+ ,0.01396
+ ,0.00484
+ ,25.429
+ ,0.420383
+ ,0.785714
+ ,-6.836811
+ ,2.223719
+ ,0.147491
+ ,1
+ ,0.00761
+ ,0.01046
+ ,0.01483
+ ,0.01036
+ ,21.028
+ ,0.536009
+ ,0.819032
+ ,-4.649573
+ ,1.986899
+ ,0.3167
+ ,1
+ ,0.00874
+ ,0.01193
+ ,0.01789
+ ,0.0118
+ ,20.767
+ ,0.558586
+ ,0.811843
+ ,-4.333543
+ ,2.014606
+ ,0.344834
+ ,1
+ ,0.00784
+ ,0.01056
+ ,0.02032
+ ,0.00969
+ ,21.422
+ ,0.541781
+ ,0.821364
+ ,-4.438453
+ ,1.92294
+ ,0.335041
+ ,1
+ ,0.00752
+ ,0.00898
+ ,0.01189
+ ,0.00681
+ ,22.817
+ ,0.530529
+ ,0.817756
+ ,-4.60826
+ ,2.021591
+ ,0.314464
+ ,1
+ ,0.00788
+ ,0.01003
+ ,0.01394
+ ,0.00786
+ ,22.603
+ ,0.540049
+ ,0.813432
+ ,-4.476755
+ ,1.827012
+ ,0.326197
+ ,1
+ ,0.00867
+ ,0.0112
+ ,0.01805
+ ,0.01143
+ ,21.66
+ ,0.547975
+ ,0.817396
+ ,-4.609161
+ ,1.831691
+ ,0.316395
+ ,0
+ ,0.00282
+ ,0.00442
+ ,0.00975
+ ,0.00871
+ ,25.554
+ ,0.341788
+ ,0.678874
+ ,-7.040508
+ ,2.460791
+ ,0.101516
+ ,0
+ ,0.00264
+ ,0.00461
+ ,0.01013
+ ,0.00301
+ ,26.138
+ ,0.447979
+ ,0.686264
+ ,-7.293801
+ ,2.32156
+ ,0.098555
+ ,0
+ ,0.00266
+ ,0.00457
+ ,0.00867
+ ,0.0034
+ ,25.856
+ ,0.364867
+ ,0.694399
+ ,-6.966321
+ ,2.278687
+ ,0.103224
+ ,0
+ ,0.00296
+ ,0.00526
+ ,0.00882
+ ,0.00351
+ ,25.964
+ ,0.25657
+ ,0.683296
+ ,-7.24562
+ ,2.498224
+ ,0.093534
+ ,0
+ ,0.00205
+ ,0.00342
+ ,0.00769
+ ,0.003
+ ,26.415
+ ,0.27685
+ ,0.673636
+ ,-7.496264
+ ,2.003032
+ ,0.073581
+ ,0
+ ,0.00238
+ ,0.00408
+ ,0.00942
+ ,0.0042
+ ,24.547
+ ,0.305429
+ ,0.681811
+ ,-7.314237
+ ,2.118596
+ ,0.091546
+ ,1
+ ,0.00817
+ ,0.01289
+ ,0.0183
+ ,0.02183
+ ,19.56
+ ,0.460139
+ ,0.720908
+ ,-5.409423
+ ,2.359973
+ ,0.226156
+ ,1
+ ,0.00923
+ ,0.0152
+ ,0.01638
+ ,0.02659
+ ,19.979
+ ,0.498133
+ ,0.729067
+ ,-5.324574
+ ,2.291558
+ ,0.226247
+ ,1
+ ,0.01101
+ ,0.01941
+ ,0.03152
+ ,0.04882
+ ,20.338
+ ,0.513237
+ ,0.731444
+ ,-5.86975
+ ,2.118496
+ ,0.18558
+ ,1
+ ,0.00762
+ ,0.014
+ ,0.03357
+ ,0.02431
+ ,21.718
+ ,0.487407
+ ,0.727313
+ ,-6.261141
+ ,2.137075
+ ,0.141958
+ ,1
+ ,0.00831
+ ,0.01407
+ ,0.01868
+ ,0.02599
+ ,20.264
+ ,0.489345
+ ,0.730387
+ ,-5.720868
+ ,2.277927
+ ,0.180828
+ ,1
+ ,0.00971
+ ,0.01601
+ ,0.02749
+ ,0.03361
+ ,18.57
+ ,0.543299
+ ,0.733232
+ ,-5.207985
+ ,2.642276
+ ,0.242981
+ ,1
+ ,0.00405
+ ,0.0054
+ ,0.00974
+ ,0.00442
+ ,25.742
+ ,0.495954
+ ,0.762959
+ ,-5.79182
+ ,2.205024
+ ,0.18818
+ ,1
+ ,0.00533
+ ,0.00805
+ ,0.01373
+ ,0.00623
+ ,24.178
+ ,0.509127
+ ,0.789532
+ ,-5.389129
+ ,1.928708
+ ,0.225461
+ ,1
+ ,0.00494
+ ,0.0078
+ ,0.01432
+ ,0.00479
+ ,25.438
+ ,0.437031
+ ,0.815908
+ ,-5.31336
+ ,2.225815
+ ,0.244512
+ ,1
+ ,0.00516
+ ,0.00831
+ ,0.01284
+ ,0.00472
+ ,25.197
+ ,0.463514
+ ,0.807217
+ ,-5.477592
+ ,1.862092
+ ,0.228624
+ ,1
+ ,0.005
+ ,0.0081
+ ,0.02413
+ ,0.00905
+ ,23.37
+ ,0.489538
+ ,0.789977
+ ,-5.775966
+ ,2.007923
+ ,0.193918
+ ,1
+ ,0.00462
+ ,0.00677
+ ,0.01284
+ ,0.0042
+ ,25.82
+ ,0.429484
+ ,0.81634
+ ,-5.391029
+ ,1.777901
+ ,0.232744
+ ,1
+ ,0.00608
+ ,0.00994
+ ,0.01803
+ ,0.01062
+ ,21.875
+ ,0.644954
+ ,0.779612
+ ,-5.115212
+ ,2.017753
+ ,0.260015
+ ,1
+ ,0.01038
+ ,0.01865
+ ,0.01773
+ ,0.0222
+ ,19.2
+ ,0.594387
+ ,0.790117
+ ,-4.913885
+ ,2.398422
+ ,0.277948
+ ,1
+ ,0.00694
+ ,0.01168
+ ,0.02266
+ ,0.01823
+ ,19.055
+ ,0.544805
+ ,0.770466
+ ,-4.441519
+ ,2.645959
+ ,0.327978
+ ,1
+ ,0.00702
+ ,0.01283
+ ,0.01792
+ ,0.01825
+ ,19.659
+ ,0.576084
+ ,0.778747
+ ,-5.132032
+ ,2.232576
+ ,0.260633
+ ,1
+ ,0.00606
+ ,0.01053
+ ,0.01371
+ ,0.01237
+ ,20.536
+ ,0.55461
+ ,0.787896
+ ,-5.022288
+ ,2.428306
+ ,0.264666
+ ,1
+ ,0.00432
+ ,0.00742
+ ,0.01277
+ ,0.00882
+ ,22.244
+ ,0.576644
+ ,0.772416
+ ,-6.025367
+ ,2.053601
+ ,0.177275
+ ,1
+ ,0.00747
+ ,0.01254
+ ,0.02679
+ ,0.0547
+ ,13.893
+ ,0.556494
+ ,0.729586
+ ,-5.288912
+ ,3.099301
+ ,0.242119
+ ,1
+ ,0.00406
+ ,0.00659
+ ,0.02107
+ ,0.02782
+ ,16.176
+ ,0.583574
+ ,0.727747
+ ,-5.657899
+ ,3.098256
+ ,0.200423
+ ,1
+ ,0.00321
+ ,0.00488
+ ,0.02073
+ ,0.03151
+ ,15.924
+ ,0.598714
+ ,0.712199
+ ,-6.366916
+ ,2.654271
+ ,0.144614
+ ,1
+ ,0.0052
+ ,0.00862
+ ,0.03671
+ ,0.04824
+ ,13.922
+ ,0.602874
+ ,0.740837
+ ,-5.515071
+ ,3.13655
+ ,0.220968
+ ,1
+ ,0.00448
+ ,0.0071
+ ,0.03788
+ ,0.04214
+ ,14.739
+ ,0.599371
+ ,0.743937
+ ,-5.783272
+ ,3.007096
+ ,0.194052
+ ,1
+ ,0.00709
+ ,0.01172
+ ,0.02297
+ ,0.07223
+ ,11.866
+ ,0.590951
+ ,0.745526
+ ,-4.379411
+ ,3.671155
+ ,0.332086
+ ,1
+ ,0.00742
+ ,0.01161
+ ,0.0365
+ ,0.08725
+ ,11.744
+ ,0.65341
+ ,0.733165
+ ,-4.508984
+ ,3.317586
+ ,0.301952
+ ,1
+ ,0.00419
+ ,0.00672
+ ,0.04421
+ ,0.01658
+ ,19.664
+ ,0.501037
+ ,0.71436
+ ,-6.411497
+ ,2.344876
+ ,0.13412
+ ,1
+ ,0.00459
+ ,0.0075
+ ,0.02383
+ ,0.01914
+ ,18.78
+ ,0.454444
+ ,0.734504
+ ,-5.952058
+ ,2.344336
+ ,0.186489
+ ,1
+ ,0.00382
+ ,0.00574
+ ,0.03341
+ ,0.01211
+ ,20.969
+ ,0.447456
+ ,0.69779
+ ,-6.152551
+ ,2.080121
+ ,0.160809
+ ,1
+ ,0.00358
+ ,0.00587
+ ,0.02062
+ ,0.0085
+ ,22.219
+ ,0.50238
+ ,0.71217
+ ,-6.251425
+ ,2.143851
+ ,0.160812
+ ,1
+ ,0.00369
+ ,0.00602
+ ,0.01813
+ ,0.01018
+ ,21.693
+ ,0.447285
+ ,0.705658
+ ,-6.247076
+ ,2.344348
+ ,0.164916
+ ,1
+ ,0.00342
+ ,0.00535
+ ,0.01806
+ ,0.00852
+ ,22.663
+ ,0.366329
+ ,0.693429
+ ,-6.41744
+ ,2.473239
+ ,0.151709
+ ,1
+ ,0.0128
+ ,0.02228
+ ,0.02135
+ ,0.08151
+ ,15.338
+ ,0.629574
+ ,0.714485
+ ,-4.020042
+ ,2.671825
+ ,0.340623
+ ,1
+ ,0.01378
+ ,0.02478
+ ,0.02542
+ ,0.10323
+ ,15.433
+ ,0.57101
+ ,0.690892
+ ,-5.159169
+ ,2.441612
+ ,0.260375
+ ,1
+ ,0.01936
+ ,0.03476
+ ,0.03611
+ ,0.16744
+ ,12.435
+ ,0.638545
+ ,0.674953
+ ,-3.760348
+ ,2.634633
+ ,0.378483
+ ,1
+ ,0.03316
+ ,0.06433
+ ,0.05358
+ ,0.31482
+ ,8.867
+ ,0.671299
+ ,0.656846
+ ,-3.700544
+ ,2.991063
+ ,0.370961
+ ,1
+ ,0.01551
+ ,0.02716
+ ,0.03223
+ ,0.11843
+ ,15.06
+ ,0.639808
+ ,0.643327
+ ,-4.20273
+ ,2.638279
+ ,0.356881
+ ,1
+ ,0.03011
+ ,0.05563
+ ,0.05551
+ ,0.2593
+ ,10.489
+ ,0.596362
+ ,0.641418
+ ,-3.269487
+ ,2.690917
+ ,0.444774
+ ,1
+ ,0.00248
+ ,0.00315
+ ,0.00522
+ ,0.00495
+ ,26.759
+ ,0.296888
+ ,0.722356
+ ,-6.878393
+ ,2.004055
+ ,0.113942
+ ,1
+ ,0.00183
+ ,0.00229
+ ,0.00469
+ ,0.00243
+ ,28.409
+ ,0.263654
+ ,0.691483
+ ,-7.111576
+ ,2.065477
+ ,0.093193
+ ,1
+ ,0.00257
+ ,0.00349
+ ,0.0066
+ ,0.00578
+ ,27.421
+ ,0.365488
+ ,0.719974
+ ,-6.997403
+ ,1.994387
+ ,0.112878
+ ,1
+ ,0.00168
+ ,0.00204
+ ,0.00522
+ ,0.00233
+ ,29.746
+ ,0.334171
+ ,0.67793
+ ,-6.981201
+ ,2.129924
+ ,0.106802
+ ,1
+ ,0.00258
+ ,0.00346
+ ,0.00633
+ ,0.00659
+ ,26.833
+ ,0.393563
+ ,0.700246
+ ,-6.600023
+ ,2.499148
+ ,0.105306
+ ,1
+ ,0.00174
+ ,0.00225
+ ,0.00455
+ ,0.00238
+ ,29.928
+ ,0.311369
+ ,0.676066
+ ,-6.739151
+ ,2.296873
+ ,0.11513
+ ,1
+ ,0.00766
+ ,0.01351
+ ,0.01771
+ ,0.00947
+ ,21.934
+ ,0.497554
+ ,0.740539
+ ,-5.845099
+ ,2.608749
+ ,0.185668
+ ,1
+ ,0.00621
+ ,0.01112
+ ,0.01192
+ ,0.00704
+ ,23.239
+ ,0.436084
+ ,0.727863
+ ,-5.25832
+ ,2.550961
+ ,0.23252
+ ,1
+ ,0.00609
+ ,0.01105
+ ,0.00952
+ ,0.0083
+ ,22.407
+ ,0.338097
+ ,0.712466
+ ,-6.471427
+ ,2.502336
+ ,0.13639
+ ,1
+ ,0.00841
+ ,0.01506
+ ,0.01277
+ ,0.01316
+ ,21.305
+ ,0.498877
+ ,0.722085
+ ,-4.876336
+ ,2.376749
+ ,0.268144
+ ,1
+ ,0.00534
+ ,0.00964
+ ,0.00861
+ ,0.0062
+ ,23.671
+ ,0.441097
+ ,0.722254
+ ,-5.96304
+ ,2.489191
+ ,0.177807
+ ,1
+ ,0.00495
+ ,0.00905
+ ,0.01107
+ ,0.01048
+ ,21.864
+ ,0.331508
+ ,0.715121
+ ,-6.729713
+ ,2.938114
+ ,0.115515
+ ,1
+ ,0.00856
+ ,0.01211
+ ,0.00796
+ ,0.06051
+ ,23.693
+ ,0.407701
+ ,0.662668
+ ,-4.673241
+ ,2.702355
+ ,0.274407
+ ,1
+ ,0.00476
+ ,0.00642
+ ,0.00606
+ ,0.01554
+ ,26.356
+ ,0.450798
+ ,0.653823
+ ,-6.051233
+ ,2.640798
+ ,0.170106
+ ,1
+ ,0.00555
+ ,0.00731
+ ,0.00757
+ ,0.01802
+ ,25.69
+ ,0.486738
+ ,0.676023
+ ,-4.597834
+ ,2.975889
+ ,0.28278
+ ,1
+ ,0.00462
+ ,0.00472
+ ,0.00617
+ ,0.00856
+ ,25.02
+ ,0.470422
+ ,0.655239
+ ,-4.913137
+ ,2.816781
+ ,0.251972
+ ,1
+ ,0.00404
+ ,0.00381
+ ,0.00679
+ ,0.00681
+ ,24.581
+ ,0.462516
+ ,0.58271
+ ,-5.517173
+ ,2.925862
+ ,0.220657
+ ,1
+ ,0.00581
+ ,0.00723
+ ,0.00849
+ ,0.0235
+ ,24.743
+ ,0.487756
+ ,0.68413
+ ,-6.186128
+ ,2.68624
+ ,0.152428
+ ,1
+ ,0.0046
+ ,0.00628
+ ,0.00534
+ ,0.01161
+ ,27.166
+ ,0.400088
+ ,0.656182
+ ,-4.711007
+ ,2.655744
+ ,0.234809
+ ,1
+ ,0.00704
+ ,0.01218
+ ,0.02587
+ ,0.01968
+ ,18.305
+ ,0.538016
+ ,0.74148
+ ,-5.418787
+ ,2.090438
+ ,0.229892
+ ,1
+ ,0.00842
+ ,0.01517
+ ,0.01372
+ ,0.01813
+ ,18.784
+ ,0.589956
+ ,0.732903
+ ,-5.44514
+ ,2.174306
+ ,0.215558
+ ,1
+ ,0.00694
+ ,0.01209
+ ,0.01289
+ ,0.0202
+ ,19.196
+ ,0.618663
+ ,0.728421
+ ,-5.944191
+ ,1.929715
+ ,0.181988
+ ,1
+ ,0.00733
+ ,0.01242
+ ,0.01235
+ ,0.01874
+ ,18.857
+ ,0.637518
+ ,0.735546
+ ,-5.594275
+ ,1.765957
+ ,0.222716
+ ,1
+ ,0.00544
+ ,0.00883
+ ,0.01484
+ ,0.01794
+ ,18.178
+ ,0.623209
+ ,0.738245
+ ,-5.540351
+ ,1.821297
+ ,0.214075
+ ,1
+ ,0.00638
+ ,0.01104
+ ,0.01547
+ ,0.01796
+ ,18.33
+ ,0.585169
+ ,0.736964
+ ,-5.825257
+ ,1.996146
+ ,0.196535
+ ,1
+ ,0.0044
+ ,0.00641
+ ,0.00538
+ ,0.01724
+ ,26.842
+ ,0.457541
+ ,0.699787
+ ,-6.890021
+ ,2.328513
+ ,0.112856
+ ,1
+ ,0.0027
+ ,0.00349
+ ,0.00476
+ ,0.00487
+ ,26.369
+ ,0.491345
+ ,0.718839
+ ,-5.892061
+ ,2.108873
+ ,0.183572
+ ,1
+ ,0.00492
+ ,0.00808
+ ,0.00703
+ ,0.0161
+ ,23.949
+ ,0.46716
+ ,0.724045
+ ,-6.135296
+ ,2.539724
+ ,0.169923
+ ,1
+ ,0.00407
+ ,0.00671
+ ,0.00721
+ ,0.01015
+ ,26.017
+ ,0.468621
+ ,0.735136
+ ,-6.112667
+ ,2.527742
+ ,0.170633
+ ,1
+ ,0.00346
+ ,0.00508
+ ,0.00633
+ ,0.00903
+ ,23.389
+ ,0.470972
+ ,0.721308
+ ,-5.436135
+ ,2.51632
+ ,0.232209
+ ,1
+ ,0.00331
+ ,0.00504
+ ,0.0049
+ ,0.00504
+ ,25.619
+ ,0.482296
+ ,0.723096
+ ,-6.448134
+ ,2.034827
+ ,0.141422
+ ,1
+ ,0.00589
+ ,0.00873
+ ,0.02683
+ ,0.03031
+ ,17.06
+ ,0.637814
+ ,0.744064
+ ,-5.301321
+ ,2.375138
+ ,0.24308
+ ,1
+ ,0.00494
+ ,0.00731
+ ,0.02229
+ ,0.02529
+ ,17.707
+ ,0.653427
+ ,0.706687
+ ,-5.333619
+ ,2.631793
+ ,0.228319
+ ,1
+ ,0.00451
+ ,0.00658
+ ,0.02385
+ ,0.02278
+ ,19.013
+ ,0.6479
+ ,0.708144
+ ,-4.378916
+ ,2.445502
+ ,0.259451
+ ,1
+ ,0.00502
+ ,0.00772
+ ,0.02896
+ ,0.0369
+ ,16.747
+ ,0.625362
+ ,0.708617
+ ,-4.654894
+ ,2.672362
+ ,0.274387
+ ,1
+ ,0.00472
+ ,0.00715
+ ,0.0307
+ ,0.02629
+ ,17.366
+ ,0.640945
+ ,0.701404
+ ,-5.634576
+ ,2.419253
+ ,0.209191
+ ,1
+ ,0.00381
+ ,0.00542
+ ,0.01514
+ ,0.01827
+ ,18.801
+ ,0.624811
+ ,0.696049
+ ,-5.866357
+ ,2.445646
+ ,0.184985
+ ,1
+ ,0.00571
+ ,0.00696
+ ,0.01713
+ ,0.02485
+ ,18.54
+ ,0.677131
+ ,0.685057
+ ,-4.796845
+ ,2.963799
+ ,0.277227
+ ,1
+ ,0.00757
+ ,0.01285
+ ,0.04016
+ ,0.04238
+ ,15.648
+ ,0.606344
+ ,0.665945
+ ,-5.410336
+ ,2.665133
+ ,0.231723
+ ,1
+ ,0.00376
+ ,0.00546
+ ,0.02055
+ ,0.01728
+ ,18.702
+ ,0.606273
+ ,0.661735
+ ,-5.585259
+ ,2.465528
+ ,0.209863
+ ,1
+ ,0.0037
+ ,0.00568
+ ,0.01117
+ ,0.0201
+ ,18.687
+ ,0.536102
+ ,0.632631
+ ,-5.898673
+ ,2.470746
+ ,0.189032
+ ,1
+ ,0.00254
+ ,0.00301
+ ,0.01475
+ ,0.01049
+ ,20.68
+ ,0.49748
+ ,0.630409
+ ,-6.132663
+ ,2.576563
+ ,0.159777
+ ,1
+ ,0.00352
+ ,0.00506
+ ,0.01379
+ ,0.01493
+ ,20.366
+ ,0.566849
+ ,0.574282
+ ,-5.456811
+ ,2.840556
+ ,0.232861
+ ,1
+ ,0.01568
+ ,0.02589
+ ,0.03804
+ ,0.0753
+ ,12.359
+ ,0.56161
+ ,0.793509
+ ,-3.297668
+ ,3.413649
+ ,0.457533
+ ,1
+ ,0.01466
+ ,0.02546
+ ,0.02865
+ ,0.06057
+ ,14.367
+ ,0.478024
+ ,0.768974
+ ,-4.276605
+ ,3.142364
+ ,0.336085
+ ,1
+ ,0.01719
+ ,0.02987
+ ,0.03474
+ ,0.08069
+ ,12.298
+ ,0.55287
+ ,0.764036
+ ,-3.377325
+ ,3.274865
+ ,0.418646
+ ,1
+ ,0.01627
+ ,0.02756
+ ,0.03515
+ ,0.07889
+ ,14.989
+ ,0.427627
+ ,0.775708
+ ,-4.892495
+ ,2.910213
+ ,0.270173
+ ,1
+ ,0.01872
+ ,0.03225
+ ,0.02699
+ ,0.10952
+ ,12.529
+ ,0.507826
+ ,0.762726
+ ,-4.484303
+ ,2.958815
+ ,0.301487
+ ,1
+ ,0.03107
+ ,0.05401
+ ,0.05647
+ ,0.21713
+ ,8.441
+ ,0.625866
+ ,0.76832
+ ,-2.434031
+ ,3.079221
+ ,0.527367
+ ,1
+ ,0.02714
+ ,0.04705
+ ,0.04284
+ ,0.16265
+ ,9.449
+ ,0.584164
+ ,0.754449
+ ,-2.839756
+ ,3.184027
+ ,0.454721
+ ,1
+ ,0.00684
+ ,0.01164
+ ,0.0134
+ ,0.04179
+ ,21.52
+ ,0.566867
+ ,0.670475
+ ,-4.865194
+ ,2.01353
+ ,0.168581
+ ,1
+ ,0.00692
+ ,0.01179
+ ,0.01484
+ ,0.04611
+ ,21.824
+ ,0.65168
+ ,0.659333
+ ,-4.239028
+ ,2.45113
+ ,0.247455
+ ,1
+ ,0.00647
+ ,0.01067
+ ,0.01659
+ ,0.02631
+ ,22.431
+ ,0.6283
+ ,0.652025
+ ,-3.583722
+ ,2.439597
+ ,0.206256
+ ,1
+ ,0.00727
+ ,0.01246
+ ,0.01205
+ ,0.03191
+ ,22.953
+ ,0.611679
+ ,0.623731
+ ,-5.4351
+ ,2.699645
+ ,0.220546
+ ,1
+ ,0.01813
+ ,0.03351
+ ,0.0261
+ ,0.10748
+ ,19.075
+ ,0.630547
+ ,0.646786
+ ,-3.444478
+ ,2.964568
+ ,0.261305
+ ,1
+ ,0.00975
+ ,0.01778
+ ,0.015
+ ,0.03828
+ ,21.534
+ ,0.635015
+ ,0.627337
+ ,-5.070096
+ ,2.8923
+ ,0.249703
+ ,1
+ ,0.00605
+ ,0.00962
+ ,0.0136
+ ,0.02663
+ ,19.651
+ ,0.654945
+ ,0.675865
+ ,-5.498456
+ ,2.103014
+ ,0.216638
+ ,1
+ ,0.00581
+ ,0.00896
+ ,0.01579
+ ,0.02073
+ ,20.437
+ ,0.653139
+ ,0.694571
+ ,-5.185987
+ ,2.151121
+ ,0.244948
+ ,1
+ ,0.00619
+ ,0.01057
+ ,0.01644
+ ,0.0281
+ ,19.388
+ ,0.577802
+ ,0.684373
+ ,-5.283009
+ ,2.442906
+ ,0.238281
+ ,1
+ ,0.00651
+ ,0.01097
+ ,0.01864
+ ,0.02707
+ ,18.954
+ ,0.685151
+ ,0.719576
+ ,-5.529833
+ ,2.408689
+ ,0.22052
+ ,1
+ ,0.00519
+ ,0.00873
+ ,0.00967
+ ,0.01435
+ ,21.219
+ ,0.557045
+ ,0.673086
+ ,-5.617124
+ ,1.871871
+ ,0.212386
+ ,1
+ ,0.00907
+ ,0.0148
+ ,0.01579
+ ,0.03882
+ ,18.447
+ ,0.671378
+ ,0.674562
+ ,-2.929379
+ ,2.560422
+ ,0.367233
+ ,0
+ ,0.00277
+ ,0.00462
+ ,0.0141
+ ,0.0062
+ ,24.078
+ ,0.469928
+ ,0.628232
+ ,-6.816086
+ ,2.235197
+ ,0.119652
+ ,0
+ ,0.00303
+ ,0.00519
+ ,0.00696
+ ,0.00533
+ ,24.679
+ ,0.384868
+ ,0.62671
+ ,-7.018057
+ ,1.852402
+ ,0.091604
+ ,0
+ ,0.00339
+ ,0.00616
+ ,0.01186
+ ,0.0091
+ ,21.083
+ ,0.440988
+ ,0.628058
+ ,-7.517934
+ ,1.881767
+ ,0.075587
+ ,0
+ ,0.00803
+ ,0.0147
+ ,0.01279
+ ,0.01337
+ ,19.269
+ ,0.372222
+ ,0.725216
+ ,-5.736781
+ ,2.88245
+ ,0.202879
+ ,0
+ ,0.00517
+ ,0.00949
+ ,0.01176
+ ,0.00965
+ ,21.02
+ ,0.371837
+ ,0.646167
+ ,-7.169701
+ ,2.266432
+ ,0.100881
+ ,0
+ ,0.00451
+ ,0.00837
+ ,0.01084
+ ,0.01049
+ ,21.528
+ ,0.522812
+ ,0.646818
+ ,-7.3045
+ ,2.095237
+ ,0.09622
+ ,0
+ ,0.00355
+ ,0.00499
+ ,0.00664
+ ,0.00435
+ ,26.436
+ ,0.413295
+ ,0.7567
+ ,-6.323531
+ ,2.193412
+ ,0.160376
+ ,0
+ ,0.00356
+ ,0.0051
+ ,0.00754
+ ,0.0043
+ ,26.55
+ ,0.36909
+ ,0.776158
+ ,-6.085567
+ ,1.889002
+ ,0.174152
+ ,0
+ ,0.00349
+ ,0.00514
+ ,0.00748
+ ,0.00478
+ ,26.547
+ ,0.380253
+ ,0.7667
+ ,-5.943501
+ ,1.852542
+ ,0.179677
+ ,0
+ ,0.00353
+ ,0.00528
+ ,0.00881
+ ,0.0059
+ ,25.445
+ ,0.387482
+ ,0.756482
+ ,-6.012559
+ ,1.872946
+ ,0.163118
+ ,0
+ ,0.00332
+ ,0.0048
+ ,0.00812
+ ,0.00401
+ ,26.005
+ ,0.405991
+ ,0.761255
+ ,-5.966779
+ ,1.974857
+ ,0.184067
+ ,0
+ ,0.00346
+ ,0.00507
+ ,0.00874
+ ,0.00415
+ ,26.143
+ ,0.361232
+ ,0.763242
+ ,-6.016891
+ ,2.004719
+ ,0.174429
+ ,1
+ ,0.00314
+ ,0.00406
+ ,0.00728
+ ,0.0057
+ ,24.151
+ ,0.39661
+ ,0.745957
+ ,-6.486822
+ ,2.449763
+ ,0.132703
+ ,1
+ ,0.00309
+ ,0.00456
+ ,0.00839
+ ,0.00488
+ ,24.412
+ ,0.402591
+ ,0.762508
+ ,-6.311987
+ ,2.251553
+ ,0.160306
+ ,1
+ ,0.00392
+ ,0.00612
+ ,0.00725
+ ,0.0054
+ ,23.683
+ ,0.398499
+ ,0.778349
+ ,-5.711205
+ ,2.845109
+ ,0.19273
+ ,1
+ ,0.00396
+ ,0.00619
+ ,0.01321
+ ,0.00611
+ ,23.133
+ ,0.352396
+ ,0.75932
+ ,-6.261446
+ ,2.264226
+ ,0.144105
+ ,1
+ ,0.00397
+ ,0.00605
+ ,0.0095
+ ,0.00639
+ ,22.866
+ ,0.408598
+ ,0.768845
+ ,-5.704053
+ ,2.679185
+ ,0.19771
+ ,1
+ ,0.00336
+ ,0.00521
+ ,0.01155
+ ,0.00595
+ ,23.008
+ ,0.329577
+ ,0.75718
+ ,-6.27717
+ ,2.209021
+ ,0.156368
+ ,0
+ ,0.00417
+ ,0.00558
+ ,0.00864
+ ,0.00955
+ ,23.079
+ ,0.603515
+ ,0.669565
+ ,-5.61907
+ ,2.027228
+ ,0.215724
+ ,0
+ ,0.00531
+ ,0.0078
+ ,0.0081
+ ,0.01179
+ ,22.085
+ ,0.663842
+ ,0.656516
+ ,-5.198864
+ ,2.120412
+ ,0.252404
+ ,0
+ ,0.00314
+ ,0.00403
+ ,0.00667
+ ,0.00737
+ ,24.199
+ ,0.598515
+ ,0.654331
+ ,-5.592584
+ ,2.058658
+ ,0.214346
+ ,0
+ ,0.00496
+ ,0.00762
+ ,0.0082
+ ,0.01397
+ ,23.958
+ ,0.566424
+ ,0.667654
+ ,-6.431119
+ ,2.161936
+ ,0.120605
+ ,0
+ ,0.00267
+ ,0.00345
+ ,0.00631
+ ,0.0068
+ ,25.023
+ ,0.528485
+ ,0.663884
+ ,-6.359018
+ ,2.152083
+ ,0.138868
+ ,0
+ ,0.00327
+ ,0.00439
+ ,0.00557
+ ,0.00703
+ ,24.775
+ ,0.555303
+ ,0.659132
+ ,-6.710219
+ ,1.91399
+ ,0.121777
+ ,0
+ ,0.00694
+ ,0.01235
+ ,0.01454
+ ,0.04441
+ ,19.368
+ ,0.508479
+ ,0.683761
+ ,-6.934474
+ ,2.316346
+ ,0.112838
+ ,0
+ ,0.00459
+ ,0.0079
+ ,0.02336
+ ,0.02764
+ ,19.517
+ ,0.448439
+ ,0.657899
+ ,-6.538586
+ ,2.657476
+ ,0.13305
+ ,0
+ ,0.00564
+ ,0.00994
+ ,0.01604
+ ,0.0181
+ ,19.147
+ ,0.431674
+ ,0.683244
+ ,-6.195325
+ ,2.784312
+ ,0.168895
+ ,0
+ ,0.0136
+ ,0.01873
+ ,0.01268
+ ,0.10715
+ ,17.883
+ ,0.407567
+ ,0.655683
+ ,-6.787197
+ ,2.679772
+ ,0.131728
+ ,0
+ ,0.0074
+ ,0.01109
+ ,0.01265
+ ,0.07223
+ ,19.02
+ ,0.451221
+ ,0.643956
+ ,-6.744577
+ ,2.138608
+ ,0.123306
+ ,0
+ ,0.00567
+ ,0.00885
+ ,0.01026
+ ,0.04398
+ ,21.209
+ ,0.462803
+ ,0.664357
+ ,-5.724056
+ ,2.555477
+ ,0.148569)
+ ,dim=c(11
+ ,195)
+ ,dimnames=list(c('status'
+ ,'MDVP:Jitter(%)'
+ ,'Jitter:DDP'
+ ,'Shimmer:APQ3'
+ ,'NHR'
+ ,'HNR'
+ ,'RPDE'
+ ,'DFA'
+ ,'spread1'
+ ,'D2'
+ ,'PPE')
+ ,1:195))
>  y <- array(NA,dim=c(11,195),dimnames=list(c('status','MDVP:Jitter(%)','Jitter:DDP','Shimmer:APQ3','NHR','HNR','RPDE','DFA','spread1','D2','PPE'),1:195))
>  for (i in 1:dim(x)[1])
+  {
+  	for (j in 1:dim(x)[2])
+  	{
+  		y[i,j] <- as.numeric(x[i,j])
+  	}
+  }
> par1 = 'pearson'
> main = 'Scatter Plots and p-values'
> par1 <- 'pearson'
> #'GNU S' R Code compiled by R2WASP v. 1.2.327 ()
> #Author: root
> #To cite this work: Patrick Wessa, (2013), Multivariate Correlation Matrix (v1.0.7) in Free Statistics Software (v$_version), Office for Research Development and Education, URL http://www.wessa.net/Patrick.Wessa/rwasp_pairs.wasp/
> #Source of accompanying publication: 
> #
> panel.tau <- function(x, y, digits=2, prefix='', cex.cor)
+ {
+ usr <- par('usr'); on.exit(par(usr))
+ par(usr = c(0, 1, 0, 1))
+ rr <- cor.test(x, y, method=par1)
+ r <- round(rr$p.value,2)
+ txt <- format(c(r, 0.123456789), digits=digits)[1]
+ txt <- paste(prefix, txt, sep='')
+ if(missing(cex.cor)) cex <- 0.5/strwidth(txt)
+ text(0.5, 0.5, txt, cex = cex)
+ }
> panel.hist <- function(x, ...)
+ {
+ usr <- par('usr'); on.exit(par(usr))
+ par(usr = c(usr[1:2], 0, 1.5) )
+ h <- hist(x, plot = FALSE)
+ breaks <- h$breaks; nB <- length(breaks)
+ y <- h$counts; y <- y/max(y)
+ rect(breaks[-nB], 0, breaks[-1], y, col='grey', ...)
+ }
> postscript(file="/var/wessaorg/rcomp/tmp/1pun81386680412.ps",horizontal=F,onefile=F,pagecentre=F,paper="special",width=8.3333333333333,height=5.5555555555556) 
> pairs(t(y),diag.panel=panel.hist, upper.panel=panel.smooth, lower.panel=panel.tau, main=main)
> dev.off()
null device 
          1 
> 
> #Note: the /var/wessaorg/rcomp/createtable file can be downloaded at http://www.wessa.net/cretab
> load(file="/var/wessaorg/rcomp/createtable")
> 
> n <- length(y[,1])
> n
[1] 11
> a<-table.start()
> a<-table.row.start(a)
> a<-table.element(a,paste('Correlations for all pairs of data series (method=',par1,')',sep=''),n+1,TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,' ',header=TRUE)
> for (i in 1:n) {
+ a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE)
+ }
> a<-table.row.end(a)
> for (i in 1:n) {
+ a<-table.row.start(a)
+ a<-table.element(a,dimnames(t(x))[[2]][i],header=TRUE)
+ for (j in 1:n) {
+ r <- cor.test(y[i,],y[j,],method=par1)
+ a<-table.element(a,round(r$estimate,3))
+ }
+ a<-table.row.end(a)
+ }
> a<-table.end(a)
> table.save(a,file="/var/wessaorg/rcomp/tmp/26i7y1386680412.tab") 
> ncorrs <- (n*n -n)/2
> mycorrs <- array(0, dim=c(10,3))
> a<-table.start()
> a<-table.row.start(a)
> a<-table.element(a,'Correlations for all pairs of data series with p-values',4,TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'pair',1,TRUE)
> a<-table.element(a,'Pearson r',1,TRUE)
> a<-table.element(a,'Spearman rho',1,TRUE)
> a<-table.element(a,'Kendall tau',1,TRUE)
> a<-table.row.end(a)
> cor.test(y[1,],y[2,],method=par1)

	Pearson's product-moment correlation

data:  y[1, ] and y[2, ]
t = 4.024, df = 193, p-value = 8.21e-05
alternative hypothesis: true correlation is not equal to 0
95 percent confidence interval:
 0.1433097 0.4029782
sample estimates:
      cor 
0.2782196 

> for (i in 1:(n-1))
+ {
+ for (j in (i+1):n)
+ {
+ a<-table.row.start(a)
+ dum <- paste(dimnames(t(x))[[2]][i],';',dimnames(t(x))[[2]][j],sep='')
+ a<-table.element(a,dum,header=TRUE)
+ rp <- cor.test(y[i,],y[j,],method='pearson')
+ a<-table.element(a,round(rp$estimate,4))
+ rs <- cor.test(y[i,],y[j,],method='spearman')
+ a<-table.element(a,round(rs$estimate,4))
+ rk <- cor.test(y[i,],y[j,],method='kendall')
+ a<-table.element(a,round(rk$estimate,4))
+ a<-table.row.end(a)
+ a<-table.row.start(a)
+ a<-table.element(a,'p-value',header=T)
+ a<-table.element(a,paste('(',round(rp$p.value,4),')',sep=''))
+ a<-table.element(a,paste('(',round(rs$p.value,4),')',sep=''))
+ a<-table.element(a,paste('(',round(rk$p.value,4),')',sep=''))
+ a<-table.row.end(a)
+ for (iii in 1:10) {
+ iiid100 <- iii / 100
+ if (rp$p.value < iiid100) mycorrs[iii, 1] = mycorrs[iii, 1] + 1
+ if (rs$p.value < iiid100) mycorrs[iii, 2] = mycorrs[iii, 2] + 1
+ if (rk$p.value < iiid100) mycorrs[iii, 3] = mycorrs[iii, 3] + 1
+ }
+ }
+ }
There were 40 warnings (use warnings() to see them)
> a<-table.end(a)
> table.save(a,file="/var/wessaorg/rcomp/tmp/3evan1386680412.tab") 
> a<-table.start()
> a<-table.row.start(a)
> a<-table.element(a,'Meta Analysis of Correlation Tests',4,TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Number of significant by total number of Correlations',4,TRUE)
> a<-table.row.end(a)
> a<-table.row.start(a)
> a<-table.element(a,'Type I error',1,TRUE)
> a<-table.element(a,'Pearson r',1,TRUE)
> a<-table.element(a,'Spearman rho',1,TRUE)
> a<-table.element(a,'Kendall tau',1,TRUE)
> a<-table.row.end(a)
> for (iii in 1:10) {
+ iiid100 <- iii / 100
+ a<-table.row.start(a)
+ a<-table.element(a,round(iiid100,2),header=T)
+ a<-table.element(a,round(mycorrs[iii,1]/ncorrs,2))
+ a<-table.element(a,round(mycorrs[iii,2]/ncorrs,2))
+ a<-table.element(a,round(mycorrs[iii,3]/ncorrs,2))
+ a<-table.row.end(a)
+ }
> a<-table.end(a)
> table.save(a,file="/var/wessaorg/rcomp/tmp/4ihh61386680413.tab") 
> 
> try(system("convert tmp/1pun81386680412.ps tmp/1pun81386680412.png",intern=TRUE))
character(0)
> 
> 
> proc.time()
   user  system elapsed 
  8.277   1.709   9.962