Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_im2_dm1.wasp
Title produced by softwareData Mining
Date of computationTue, 01 May 2012 14:52:36 -0400
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/May/01/t13358983743illcy7qmiwcqef.htm/, Retrieved Thu, 31 Oct 2024 22:49:17 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=165724, Retrieved Thu, 31 Oct 2024 22:49:17 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact134
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Data Mining] [Correlations] [2012-05-01 18:52:36] [e50089e948da7a8c6cddf62fd784485f] [Current]
Feedback Forum

Post a new message




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=165724&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 time17 seconds
R Server'AstonUniversity' @ aston.wessa.net







Computational Result
> myoutput
$Xcor
              A1          A2         A3          A4           A5         A6
A1   1.000000000 -0.01456763 0.22902201 -0.01958045 0.0785518897 0.14186848
A2  -0.014567629  1.00000000 0.04063150  0.11874592 0.0337351744 0.01112626
A3   0.229022006  0.04063150 1.00000000  0.14425639 0.1696514232 0.23262417
A4  -0.019580448  0.11874592 0.14425639  1.00000000 0.2290508251 0.12795672
A5   0.078551890  0.03373517 0.16965142  0.22905083 1.0000000000 0.20678901
A6   0.141868482  0.01112626 0.23262417  0.12795672 0.2067890085 1.00000000
A7   0.139390110  0.19014999 0.10843907  0.06819190 0.1417798583 0.13833195
A8   0.140708399  0.12651933 0.23500200  0.15247844 0.1696980676 0.26335303
A9   0.008460045  0.18351148 0.04653308  0.16426408 0.0005923172 0.09394066
A10  0.197194844  0.04050948 0.17426396  0.06212562 0.0798494751 0.16750522
           A7        A8           A9        A10
A1  0.1393901 0.1407084 0.0084600449 0.19719484
A2  0.1901500 0.1265193 0.1835114788 0.04050948
A3  0.1084391 0.2350020 0.0465330818 0.17426396
A4  0.0681919 0.1524784 0.1642640849 0.06212562
A5  0.1417799 0.1696981 0.0005923172 0.07984948
A6  0.1383319 0.2633530 0.0939406604 0.16750522
A7  1.0000000 0.2278096 0.1626119100 0.12891833
A8  0.2278096 1.0000000 0.1421289142 0.26081027
A9  0.1626119 0.1421289 1.0000000000 0.14376296
A10 0.1289183 0.2608103 0.1437629575 1.00000000
$Ycor
             A11         A12          A13         A14        A15         A16
A11  1.000000000 -0.13194180 -0.102497840 0.008737996 0.20249086  0.21741752
A12 -0.131941805  1.00000000  0.186363272 0.261040420 0.03509499 -0.01825640
A13 -0.102497840  0.18636327  1.000000000 0.088928005 0.02739179 -0.13959061
A14  0.008737996  0.26104042  0.088928005 1.000000000 0.07190407  0.03512901
A15  0.202490862  0.03509499  0.027391789 0.071904066 1.00000000  0.19484988
A16  0.217417521 -0.01825640 -0.139590613 0.035129007 0.19484988  1.00000000
A17  0.032059264  0.12378242  0.003030122 0.099132532 0.11417183  0.16276069
A18  0.146769834  0.11462733  0.078084384 0.118859175 0.19038492  0.11865707
A19  0.059848883  0.16464032  0.136599985 0.137274177 0.28942521  0.02785369
A20  0.073303426  0.15473998 -0.014938732 0.163617291 0.10281982  0.18128078
            A17        A18        A19         A20
A11 0.032059264 0.14676983 0.05984888  0.07330343
A12 0.123782424 0.11462733 0.16464032  0.15473998
A13 0.003030122 0.07808438 0.13659999 -0.01493873
A14 0.099132532 0.11885918 0.13727418  0.16361729
A15 0.114171826 0.19038492 0.28942521  0.10281982
A16 0.162760691 0.11865707 0.02785369  0.18128078
A17 1.000000000 0.16445703 0.08992243  0.18197655
A18 0.164457030 1.00000000 0.20063525  0.14711266
A19 0.089922428 0.20063525 1.00000000  0.12698837
A20 0.181976553 0.14711266 0.12698837  1.00000000
$XYcor
              A1          A2         A3          A4            A5         A6
A1   1.000000000 -0.01456763 0.22902201 -0.01958045  0.0785518897 0.14186848
A2  -0.014567629  1.00000000 0.04063150  0.11874592  0.0337351744 0.01112626
A3   0.229022006  0.04063150 1.00000000  0.14425639  0.1696514232 0.23262417
A4  -0.019580448  0.11874592 0.14425639  1.00000000  0.2290508251 0.12795672
A5   0.078551890  0.03373517 0.16965142  0.22905083  1.0000000000 0.20678901
A6   0.141868482  0.01112626 0.23262417  0.12795672  0.2067890085 1.00000000
A7   0.139390110  0.19014999 0.10843907  0.06819190  0.1417798583 0.13833195
A8   0.140708399  0.12651933 0.23500200  0.15247844  0.1696980676 0.26335303
A9   0.008460045  0.18351148 0.04653308  0.16426408  0.0005923172 0.09394066
A10  0.197194844  0.04050948 0.17426396  0.06212562  0.0798494751 0.16750522
A11  0.166780779 -0.22320507 0.12647047 -0.13581334 -0.0490060735 0.13150042
A12  0.003167349  0.17530063 0.06208722  0.13882155  0.1209568380 0.07027754
A13 -0.036816026  0.06721778 0.05438194  0.12325819  0.1120155003 0.08964439
A14  0.091271074  0.18881355 0.07683778  0.01726061  0.0595391989 0.12288976
A15  0.217866112 -0.07954359 0.25148612  0.03808122  0.1311070501 0.20145804
A16  0.176380995 -0.07879764 0.12357110 -0.05942293 -0.0347049760 0.10072383
A17  0.151382054  0.02514926 0.09418015  0.02839357  0.0941005681 0.10878489
A18  0.093574422 -0.01078208 0.17753949 -0.02834179  0.0764949556 0.16039080
A19  0.101909531  0.01708327 0.14251456  0.10022114  0.1560892436 0.16341329
A20  0.122359912  0.07452889 0.06647894  0.02843127  0.0340475779 0.04590846
             A7           A8            A9        A10          A11          A12
A1   0.13939011  0.140708399  0.0084600449 0.19719484  0.166780779  0.003167349
A2   0.19014999  0.126519332  0.1835114788 0.04050948 -0.223205070  0.175300634
A3   0.10843907  0.235001996  0.0465330818 0.17426396  0.126470469  0.062087225
A4   0.06819190  0.152478442  0.1642640849 0.06212562 -0.135813340  0.138821552
A5   0.14177986  0.169698068  0.0005923172 0.07984948 -0.049006073  0.120956838
A6   0.13833195  0.263353034  0.0939406604 0.16750522  0.131500419  0.070277540
A7   1.00000000  0.227809613  0.1626119100 0.12891833 -0.051447451  0.124352658
A8   0.22780961  1.000000000  0.1421289142 0.26081027  0.012069893  0.168807101
A9   0.16261191  0.142128914  1.0000000000 0.14376296 -0.118977994  0.178433780
A10  0.12891833  0.260810271  0.1437629575 1.00000000  0.106981983  0.111016654
A11 -0.05144745  0.012069893 -0.1189779936 0.10698198  1.000000000 -0.131941805
A12  0.12435266  0.168807101  0.1784337802 0.11101665 -0.131941805  1.000000000
A13  0.07235065  0.199522945  0.0752472772 0.05263752 -0.102497840  0.186363272
A14  0.19178611  0.178472284  0.1270731667 0.09877432  0.008737996  0.261040420
A15  0.07986290  0.159613067  0.0393248905 0.15998728  0.202490862  0.035094986
A16  0.01511675 -0.009694718 -0.0050414545 0.09044151  0.217417521 -0.018256403
A17  0.13923290  0.113245933  0.0382121130 0.19046596  0.032059264  0.123782424
A18  0.06950194  0.138700321  0.0236112665 0.08467464  0.146769834  0.114627331
A19  0.12918458  0.185479945  0.0937705583 0.09105698  0.059848883  0.164640320
A20  0.11036651  0.077785923  0.1560727043 0.11112690  0.073303426  0.154739979
             A13         A14         A15          A16         A17         A18
A1  -0.036816026 0.091271074  0.21786611  0.176380995 0.151382054  0.09357442
A2   0.067217782 0.188813548 -0.07954359 -0.078797641 0.025149263 -0.01078208
A3   0.054381944 0.076837780  0.25148612  0.123571104 0.094180154  0.17753949
A4   0.123258187 0.017260611  0.03808122 -0.059422925 0.028393568 -0.02834179
A5   0.112015500 0.059539199  0.13110705 -0.034704976 0.094100568  0.07649496
A6   0.089644386 0.122889759  0.20145804  0.100723834 0.108784891  0.16039080
A7   0.072350650 0.191786111  0.07986290  0.015116746 0.139232895  0.06950194
A8   0.199522945 0.178472284  0.15961307 -0.009694718 0.113245933  0.13870032
A9   0.075247277 0.127073167  0.03932489 -0.005041454 0.038212113  0.02361127
A10  0.052637520 0.098774323  0.15998728  0.090441514 0.190465957  0.08467464
A11 -0.102497840 0.008737996  0.20249086  0.217417521 0.032059264  0.14676983
A12  0.186363272 0.261040420  0.03509499 -0.018256403 0.123782424  0.11462733
A13  1.000000000 0.088928005  0.02739179 -0.139590613 0.003030122  0.07808438
A14  0.088928005 1.000000000  0.07190407  0.035129007 0.099132532  0.11885918
A15  0.027391789 0.071904066  1.00000000  0.194849876 0.114171826  0.19038492
A16 -0.139590613 0.035129007  0.19484988  1.000000000 0.162760691  0.11865707
A17  0.003030122 0.099132532  0.11417183  0.162760691 1.000000000  0.16445703
A18  0.078084384 0.118859175  0.19038492  0.118657066 0.164457030  1.00000000
A19  0.136599985 0.137274177  0.28942521  0.027853687 0.089922428  0.20063525
A20 -0.014938732 0.163617291  0.10281982  0.181280782 0.181976553  0.14711266
           A19         A20
A1  0.10190953  0.12235991
A2  0.01708327  0.07452889
A3  0.14251456  0.06647894
A4  0.10022114  0.02843127
A5  0.15608924  0.03404758
A6  0.16341329  0.04590846
A7  0.12918458  0.11036651
A8  0.18547994  0.07778592
A9  0.09377056  0.15607270
A10 0.09105698  0.11112690
A11 0.05984888  0.07330343
A12 0.16464032  0.15473998
A13 0.13659999 -0.01493873
A14 0.13727418  0.16361729
A15 0.28942521  0.10281982
A16 0.02785369  0.18128078
A17 0.08992243  0.18197655
A18 0.20063525  0.14711266
A19 1.00000000  0.12698837
A20 0.12698837  1.00000000
> myxlabs
 [1] "A1"  "A2"  "A3"  "A4"  "A5"  "A6"  "A7"  "A8"  "A9"  "A10"
> myylabs
 [1] "A11" "A12" "A13" "A14" "A15" "A16" "A17" "A18" "A19" "A20"

\begin{tabular}{lllllllll}
\hline
Computational Result \tabularnewline
> myoutput
$Xcor
              A1          A2         A3          A4           A5         A6
A1   1.000000000 -0.01456763 0.22902201 -0.01958045 0.0785518897 0.14186848
A2  -0.014567629  1.00000000 0.04063150  0.11874592 0.0337351744 0.01112626
A3   0.229022006  0.04063150 1.00000000  0.14425639 0.1696514232 0.23262417
A4  -0.019580448  0.11874592 0.14425639  1.00000000 0.2290508251 0.12795672
A5   0.078551890  0.03373517 0.16965142  0.22905083 1.0000000000 0.20678901
A6   0.141868482  0.01112626 0.23262417  0.12795672 0.2067890085 1.00000000
A7   0.139390110  0.19014999 0.10843907  0.06819190 0.1417798583 0.13833195
A8   0.140708399  0.12651933 0.23500200  0.15247844 0.1696980676 0.26335303
A9   0.008460045  0.18351148 0.04653308  0.16426408 0.0005923172 0.09394066
A10  0.197194844  0.04050948 0.17426396  0.06212562 0.0798494751 0.16750522
           A7        A8           A9        A10
A1  0.1393901 0.1407084 0.0084600449 0.19719484
A2  0.1901500 0.1265193 0.1835114788 0.04050948
A3  0.1084391 0.2350020 0.0465330818 0.17426396
A4  0.0681919 0.1524784 0.1642640849 0.06212562
A5  0.1417799 0.1696981 0.0005923172 0.07984948
A6  0.1383319 0.2633530 0.0939406604 0.16750522
A7  1.0000000 0.2278096 0.1626119100 0.12891833
A8  0.2278096 1.0000000 0.1421289142 0.26081027
A9  0.1626119 0.1421289 1.0000000000 0.14376296
A10 0.1289183 0.2608103 0.1437629575 1.00000000
$Ycor
             A11         A12          A13         A14        A15         A16
A11  1.000000000 -0.13194180 -0.102497840 0.008737996 0.20249086  0.21741752
A12 -0.131941805  1.00000000  0.186363272 0.261040420 0.03509499 -0.01825640
A13 -0.102497840  0.18636327  1.000000000 0.088928005 0.02739179 -0.13959061
A14  0.008737996  0.26104042  0.088928005 1.000000000 0.07190407  0.03512901
A15  0.202490862  0.03509499  0.027391789 0.071904066 1.00000000  0.19484988
A16  0.217417521 -0.01825640 -0.139590613 0.035129007 0.19484988  1.00000000
A17  0.032059264  0.12378242  0.003030122 0.099132532 0.11417183  0.16276069
A18  0.146769834  0.11462733  0.078084384 0.118859175 0.19038492  0.11865707
A19  0.059848883  0.16464032  0.136599985 0.137274177 0.28942521  0.02785369
A20  0.073303426  0.15473998 -0.014938732 0.163617291 0.10281982  0.18128078
            A17        A18        A19         A20
A11 0.032059264 0.14676983 0.05984888  0.07330343
A12 0.123782424 0.11462733 0.16464032  0.15473998
A13 0.003030122 0.07808438 0.13659999 -0.01493873
A14 0.099132532 0.11885918 0.13727418  0.16361729
A15 0.114171826 0.19038492 0.28942521  0.10281982
A16 0.162760691 0.11865707 0.02785369  0.18128078
A17 1.000000000 0.16445703 0.08992243  0.18197655
A18 0.164457030 1.00000000 0.20063525  0.14711266
A19 0.089922428 0.20063525 1.00000000  0.12698837
A20 0.181976553 0.14711266 0.12698837  1.00000000
$XYcor
              A1          A2         A3          A4            A5         A6
A1   1.000000000 -0.01456763 0.22902201 -0.01958045  0.0785518897 0.14186848
A2  -0.014567629  1.00000000 0.04063150  0.11874592  0.0337351744 0.01112626
A3   0.229022006  0.04063150 1.00000000  0.14425639  0.1696514232 0.23262417
A4  -0.019580448  0.11874592 0.14425639  1.00000000  0.2290508251 0.12795672
A5   0.078551890  0.03373517 0.16965142  0.22905083  1.0000000000 0.20678901
A6   0.141868482  0.01112626 0.23262417  0.12795672  0.2067890085 1.00000000
A7   0.139390110  0.19014999 0.10843907  0.06819190  0.1417798583 0.13833195
A8   0.140708399  0.12651933 0.23500200  0.15247844  0.1696980676 0.26335303
A9   0.008460045  0.18351148 0.04653308  0.16426408  0.0005923172 0.09394066
A10  0.197194844  0.04050948 0.17426396  0.06212562  0.0798494751 0.16750522
A11  0.166780779 -0.22320507 0.12647047 -0.13581334 -0.0490060735 0.13150042
A12  0.003167349  0.17530063 0.06208722  0.13882155  0.1209568380 0.07027754
A13 -0.036816026  0.06721778 0.05438194  0.12325819  0.1120155003 0.08964439
A14  0.091271074  0.18881355 0.07683778  0.01726061  0.0595391989 0.12288976
A15  0.217866112 -0.07954359 0.25148612  0.03808122  0.1311070501 0.20145804
A16  0.176380995 -0.07879764 0.12357110 -0.05942293 -0.0347049760 0.10072383
A17  0.151382054  0.02514926 0.09418015  0.02839357  0.0941005681 0.10878489
A18  0.093574422 -0.01078208 0.17753949 -0.02834179  0.0764949556 0.16039080
A19  0.101909531  0.01708327 0.14251456  0.10022114  0.1560892436 0.16341329
A20  0.122359912  0.07452889 0.06647894  0.02843127  0.0340475779 0.04590846
             A7           A8            A9        A10          A11          A12
A1   0.13939011  0.140708399  0.0084600449 0.19719484  0.166780779  0.003167349
A2   0.19014999  0.126519332  0.1835114788 0.04050948 -0.223205070  0.175300634
A3   0.10843907  0.235001996  0.0465330818 0.17426396  0.126470469  0.062087225
A4   0.06819190  0.152478442  0.1642640849 0.06212562 -0.135813340  0.138821552
A5   0.14177986  0.169698068  0.0005923172 0.07984948 -0.049006073  0.120956838
A6   0.13833195  0.263353034  0.0939406604 0.16750522  0.131500419  0.070277540
A7   1.00000000  0.227809613  0.1626119100 0.12891833 -0.051447451  0.124352658
A8   0.22780961  1.000000000  0.1421289142 0.26081027  0.012069893  0.168807101
A9   0.16261191  0.142128914  1.0000000000 0.14376296 -0.118977994  0.178433780
A10  0.12891833  0.260810271  0.1437629575 1.00000000  0.106981983  0.111016654
A11 -0.05144745  0.012069893 -0.1189779936 0.10698198  1.000000000 -0.131941805
A12  0.12435266  0.168807101  0.1784337802 0.11101665 -0.131941805  1.000000000
A13  0.07235065  0.199522945  0.0752472772 0.05263752 -0.102497840  0.186363272
A14  0.19178611  0.178472284  0.1270731667 0.09877432  0.008737996  0.261040420
A15  0.07986290  0.159613067  0.0393248905 0.15998728  0.202490862  0.035094986
A16  0.01511675 -0.009694718 -0.0050414545 0.09044151  0.217417521 -0.018256403
A17  0.13923290  0.113245933  0.0382121130 0.19046596  0.032059264  0.123782424
A18  0.06950194  0.138700321  0.0236112665 0.08467464  0.146769834  0.114627331
A19  0.12918458  0.185479945  0.0937705583 0.09105698  0.059848883  0.164640320
A20  0.11036651  0.077785923  0.1560727043 0.11112690  0.073303426  0.154739979
             A13         A14         A15          A16         A17         A18
A1  -0.036816026 0.091271074  0.21786611  0.176380995 0.151382054  0.09357442
A2   0.067217782 0.188813548 -0.07954359 -0.078797641 0.025149263 -0.01078208
A3   0.054381944 0.076837780  0.25148612  0.123571104 0.094180154  0.17753949
A4   0.123258187 0.017260611  0.03808122 -0.059422925 0.028393568 -0.02834179
A5   0.112015500 0.059539199  0.13110705 -0.034704976 0.094100568  0.07649496
A6   0.089644386 0.122889759  0.20145804  0.100723834 0.108784891  0.16039080
A7   0.072350650 0.191786111  0.07986290  0.015116746 0.139232895  0.06950194
A8   0.199522945 0.178472284  0.15961307 -0.009694718 0.113245933  0.13870032
A9   0.075247277 0.127073167  0.03932489 -0.005041454 0.038212113  0.02361127
A10  0.052637520 0.098774323  0.15998728  0.090441514 0.190465957  0.08467464
A11 -0.102497840 0.008737996  0.20249086  0.217417521 0.032059264  0.14676983
A12  0.186363272 0.261040420  0.03509499 -0.018256403 0.123782424  0.11462733
A13  1.000000000 0.088928005  0.02739179 -0.139590613 0.003030122  0.07808438
A14  0.088928005 1.000000000  0.07190407  0.035129007 0.099132532  0.11885918
A15  0.027391789 0.071904066  1.00000000  0.194849876 0.114171826  0.19038492
A16 -0.139590613 0.035129007  0.19484988  1.000000000 0.162760691  0.11865707
A17  0.003030122 0.099132532  0.11417183  0.162760691 1.000000000  0.16445703
A18  0.078084384 0.118859175  0.19038492  0.118657066 0.164457030  1.00000000
A19  0.136599985 0.137274177  0.28942521  0.027853687 0.089922428  0.20063525
A20 -0.014938732 0.163617291  0.10281982  0.181280782 0.181976553  0.14711266
           A19         A20
A1  0.10190953  0.12235991
A2  0.01708327  0.07452889
A3  0.14251456  0.06647894
A4  0.10022114  0.02843127
A5  0.15608924  0.03404758
A6  0.16341329  0.04590846
A7  0.12918458  0.11036651
A8  0.18547994  0.07778592
A9  0.09377056  0.15607270
A10 0.09105698  0.11112690
A11 0.05984888  0.07330343
A12 0.16464032  0.15473998
A13 0.13659999 -0.01493873
A14 0.13727418  0.16361729
A15 0.28942521  0.10281982
A16 0.02785369  0.18128078
A17 0.08992243  0.18197655
A18 0.20063525  0.14711266
A19 1.00000000  0.12698837
A20 0.12698837  1.00000000
> myxlabs
 [1] "A1"  "A2"  "A3"  "A4"  "A5"  "A6"  "A7"  "A8"  "A9"  "A10"
> myylabs
 [1] "A11" "A12" "A13" "A14" "A15" "A16" "A17" "A18" "A19" "A20"
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=165724&T=1

[TABLE]
[ROW][C]Computational Result[/C][/ROW]
[ROW][C]
> myoutput
$Xcor
              A1          A2         A3          A4           A5         A6
A1   1.000000000 -0.01456763 0.22902201 -0.01958045 0.0785518897 0.14186848
A2  -0.014567629  1.00000000 0.04063150  0.11874592 0.0337351744 0.01112626
A3   0.229022006  0.04063150 1.00000000  0.14425639 0.1696514232 0.23262417
A4  -0.019580448  0.11874592 0.14425639  1.00000000 0.2290508251 0.12795672
A5   0.078551890  0.03373517 0.16965142  0.22905083 1.0000000000 0.20678901
A6   0.141868482  0.01112626 0.23262417  0.12795672 0.2067890085 1.00000000
A7   0.139390110  0.19014999 0.10843907  0.06819190 0.1417798583 0.13833195
A8   0.140708399  0.12651933 0.23500200  0.15247844 0.1696980676 0.26335303
A9   0.008460045  0.18351148 0.04653308  0.16426408 0.0005923172 0.09394066
A10  0.197194844  0.04050948 0.17426396  0.06212562 0.0798494751 0.16750522
           A7        A8           A9        A10
A1  0.1393901 0.1407084 0.0084600449 0.19719484
A2  0.1901500 0.1265193 0.1835114788 0.04050948
A3  0.1084391 0.2350020 0.0465330818 0.17426396
A4  0.0681919 0.1524784 0.1642640849 0.06212562
A5  0.1417799 0.1696981 0.0005923172 0.07984948
A6  0.1383319 0.2633530 0.0939406604 0.16750522
A7  1.0000000 0.2278096 0.1626119100 0.12891833
A8  0.2278096 1.0000000 0.1421289142 0.26081027
A9  0.1626119 0.1421289 1.0000000000 0.14376296
A10 0.1289183 0.2608103 0.1437629575 1.00000000
$Ycor
             A11         A12          A13         A14        A15         A16
A11  1.000000000 -0.13194180 -0.102497840 0.008737996 0.20249086  0.21741752
A12 -0.131941805  1.00000000  0.186363272 0.261040420 0.03509499 -0.01825640
A13 -0.102497840  0.18636327  1.000000000 0.088928005 0.02739179 -0.13959061
A14  0.008737996  0.26104042  0.088928005 1.000000000 0.07190407  0.03512901
A15  0.202490862  0.03509499  0.027391789 0.071904066 1.00000000  0.19484988
A16  0.217417521 -0.01825640 -0.139590613 0.035129007 0.19484988  1.00000000
A17  0.032059264  0.12378242  0.003030122 0.099132532 0.11417183  0.16276069
A18  0.146769834  0.11462733  0.078084384 0.118859175 0.19038492  0.11865707
A19  0.059848883  0.16464032  0.136599985 0.137274177 0.28942521  0.02785369
A20  0.073303426  0.15473998 -0.014938732 0.163617291 0.10281982  0.18128078
            A17        A18        A19         A20
A11 0.032059264 0.14676983 0.05984888  0.07330343
A12 0.123782424 0.11462733 0.16464032  0.15473998
A13 0.003030122 0.07808438 0.13659999 -0.01493873
A14 0.099132532 0.11885918 0.13727418  0.16361729
A15 0.114171826 0.19038492 0.28942521  0.10281982
A16 0.162760691 0.11865707 0.02785369  0.18128078
A17 1.000000000 0.16445703 0.08992243  0.18197655
A18 0.164457030 1.00000000 0.20063525  0.14711266
A19 0.089922428 0.20063525 1.00000000  0.12698837
A20 0.181976553 0.14711266 0.12698837  1.00000000
$XYcor
              A1          A2         A3          A4            A5         A6
A1   1.000000000 -0.01456763 0.22902201 -0.01958045  0.0785518897 0.14186848
A2  -0.014567629  1.00000000 0.04063150  0.11874592  0.0337351744 0.01112626
A3   0.229022006  0.04063150 1.00000000  0.14425639  0.1696514232 0.23262417
A4  -0.019580448  0.11874592 0.14425639  1.00000000  0.2290508251 0.12795672
A5   0.078551890  0.03373517 0.16965142  0.22905083  1.0000000000 0.20678901
A6   0.141868482  0.01112626 0.23262417  0.12795672  0.2067890085 1.00000000
A7   0.139390110  0.19014999 0.10843907  0.06819190  0.1417798583 0.13833195
A8   0.140708399  0.12651933 0.23500200  0.15247844  0.1696980676 0.26335303
A9   0.008460045  0.18351148 0.04653308  0.16426408  0.0005923172 0.09394066
A10  0.197194844  0.04050948 0.17426396  0.06212562  0.0798494751 0.16750522
A11  0.166780779 -0.22320507 0.12647047 -0.13581334 -0.0490060735 0.13150042
A12  0.003167349  0.17530063 0.06208722  0.13882155  0.1209568380 0.07027754
A13 -0.036816026  0.06721778 0.05438194  0.12325819  0.1120155003 0.08964439
A14  0.091271074  0.18881355 0.07683778  0.01726061  0.0595391989 0.12288976
A15  0.217866112 -0.07954359 0.25148612  0.03808122  0.1311070501 0.20145804
A16  0.176380995 -0.07879764 0.12357110 -0.05942293 -0.0347049760 0.10072383
A17  0.151382054  0.02514926 0.09418015  0.02839357  0.0941005681 0.10878489
A18  0.093574422 -0.01078208 0.17753949 -0.02834179  0.0764949556 0.16039080
A19  0.101909531  0.01708327 0.14251456  0.10022114  0.1560892436 0.16341329
A20  0.122359912  0.07452889 0.06647894  0.02843127  0.0340475779 0.04590846
             A7           A8            A9        A10          A11          A12
A1   0.13939011  0.140708399  0.0084600449 0.19719484  0.166780779  0.003167349
A2   0.19014999  0.126519332  0.1835114788 0.04050948 -0.223205070  0.175300634
A3   0.10843907  0.235001996  0.0465330818 0.17426396  0.126470469  0.062087225
A4   0.06819190  0.152478442  0.1642640849 0.06212562 -0.135813340  0.138821552
A5   0.14177986  0.169698068  0.0005923172 0.07984948 -0.049006073  0.120956838
A6   0.13833195  0.263353034  0.0939406604 0.16750522  0.131500419  0.070277540
A7   1.00000000  0.227809613  0.1626119100 0.12891833 -0.051447451  0.124352658
A8   0.22780961  1.000000000  0.1421289142 0.26081027  0.012069893  0.168807101
A9   0.16261191  0.142128914  1.0000000000 0.14376296 -0.118977994  0.178433780
A10  0.12891833  0.260810271  0.1437629575 1.00000000  0.106981983  0.111016654
A11 -0.05144745  0.012069893 -0.1189779936 0.10698198  1.000000000 -0.131941805
A12  0.12435266  0.168807101  0.1784337802 0.11101665 -0.131941805  1.000000000
A13  0.07235065  0.199522945  0.0752472772 0.05263752 -0.102497840  0.186363272
A14  0.19178611  0.178472284  0.1270731667 0.09877432  0.008737996  0.261040420
A15  0.07986290  0.159613067  0.0393248905 0.15998728  0.202490862  0.035094986
A16  0.01511675 -0.009694718 -0.0050414545 0.09044151  0.217417521 -0.018256403
A17  0.13923290  0.113245933  0.0382121130 0.19046596  0.032059264  0.123782424
A18  0.06950194  0.138700321  0.0236112665 0.08467464  0.146769834  0.114627331
A19  0.12918458  0.185479945  0.0937705583 0.09105698  0.059848883  0.164640320
A20  0.11036651  0.077785923  0.1560727043 0.11112690  0.073303426  0.154739979
             A13         A14         A15          A16         A17         A18
A1  -0.036816026 0.091271074  0.21786611  0.176380995 0.151382054  0.09357442
A2   0.067217782 0.188813548 -0.07954359 -0.078797641 0.025149263 -0.01078208
A3   0.054381944 0.076837780  0.25148612  0.123571104 0.094180154  0.17753949
A4   0.123258187 0.017260611  0.03808122 -0.059422925 0.028393568 -0.02834179
A5   0.112015500 0.059539199  0.13110705 -0.034704976 0.094100568  0.07649496
A6   0.089644386 0.122889759  0.20145804  0.100723834 0.108784891  0.16039080
A7   0.072350650 0.191786111  0.07986290  0.015116746 0.139232895  0.06950194
A8   0.199522945 0.178472284  0.15961307 -0.009694718 0.113245933  0.13870032
A9   0.075247277 0.127073167  0.03932489 -0.005041454 0.038212113  0.02361127
A10  0.052637520 0.098774323  0.15998728  0.090441514 0.190465957  0.08467464
A11 -0.102497840 0.008737996  0.20249086  0.217417521 0.032059264  0.14676983
A12  0.186363272 0.261040420  0.03509499 -0.018256403 0.123782424  0.11462733
A13  1.000000000 0.088928005  0.02739179 -0.139590613 0.003030122  0.07808438
A14  0.088928005 1.000000000  0.07190407  0.035129007 0.099132532  0.11885918
A15  0.027391789 0.071904066  1.00000000  0.194849876 0.114171826  0.19038492
A16 -0.139590613 0.035129007  0.19484988  1.000000000 0.162760691  0.11865707
A17  0.003030122 0.099132532  0.11417183  0.162760691 1.000000000  0.16445703
A18  0.078084384 0.118859175  0.19038492  0.118657066 0.164457030  1.00000000
A19  0.136599985 0.137274177  0.28942521  0.027853687 0.089922428  0.20063525
A20 -0.014938732 0.163617291  0.10281982  0.181280782 0.181976553  0.14711266
           A19         A20
A1  0.10190953  0.12235991
A2  0.01708327  0.07452889
A3  0.14251456  0.06647894
A4  0.10022114  0.02843127
A5  0.15608924  0.03404758
A6  0.16341329  0.04590846
A7  0.12918458  0.11036651
A8  0.18547994  0.07778592
A9  0.09377056  0.15607270
A10 0.09105698  0.11112690
A11 0.05984888  0.07330343
A12 0.16464032  0.15473998
A13 0.13659999 -0.01493873
A14 0.13727418  0.16361729
A15 0.28942521  0.10281982
A16 0.02785369  0.18128078
A17 0.08992243  0.18197655
A18 0.20063525  0.14711266
A19 1.00000000  0.12698837
A20 0.12698837  1.00000000
> myxlabs
 [1] "A1"  "A2"  "A3"  "A4"  "A5"  "A6"  "A7"  "A8"  "A9"  "A10"
> myylabs
 [1] "A11" "A12" "A13" "A14" "A15" "A16" "A17" "A18" "A19" "A20"
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=165724&T=1

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

As an alternative you can also use a QR Code:  

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

Computational Result
> myoutput
$Xcor
              A1          A2         A3          A4           A5         A6
A1   1.000000000 -0.01456763 0.22902201 -0.01958045 0.0785518897 0.14186848
A2  -0.014567629  1.00000000 0.04063150  0.11874592 0.0337351744 0.01112626
A3   0.229022006  0.04063150 1.00000000  0.14425639 0.1696514232 0.23262417
A4  -0.019580448  0.11874592 0.14425639  1.00000000 0.2290508251 0.12795672
A5   0.078551890  0.03373517 0.16965142  0.22905083 1.0000000000 0.20678901
A6   0.141868482  0.01112626 0.23262417  0.12795672 0.2067890085 1.00000000
A7   0.139390110  0.19014999 0.10843907  0.06819190 0.1417798583 0.13833195
A8   0.140708399  0.12651933 0.23500200  0.15247844 0.1696980676 0.26335303
A9   0.008460045  0.18351148 0.04653308  0.16426408 0.0005923172 0.09394066
A10  0.197194844  0.04050948 0.17426396  0.06212562 0.0798494751 0.16750522
           A7        A8           A9        A10
A1  0.1393901 0.1407084 0.0084600449 0.19719484
A2  0.1901500 0.1265193 0.1835114788 0.04050948
A3  0.1084391 0.2350020 0.0465330818 0.17426396
A4  0.0681919 0.1524784 0.1642640849 0.06212562
A5  0.1417799 0.1696981 0.0005923172 0.07984948
A6  0.1383319 0.2633530 0.0939406604 0.16750522
A7  1.0000000 0.2278096 0.1626119100 0.12891833
A8  0.2278096 1.0000000 0.1421289142 0.26081027
A9  0.1626119 0.1421289 1.0000000000 0.14376296
A10 0.1289183 0.2608103 0.1437629575 1.00000000
$Ycor
             A11         A12          A13         A14        A15         A16
A11  1.000000000 -0.13194180 -0.102497840 0.008737996 0.20249086  0.21741752
A12 -0.131941805  1.00000000  0.186363272 0.261040420 0.03509499 -0.01825640
A13 -0.102497840  0.18636327  1.000000000 0.088928005 0.02739179 -0.13959061
A14  0.008737996  0.26104042  0.088928005 1.000000000 0.07190407  0.03512901
A15  0.202490862  0.03509499  0.027391789 0.071904066 1.00000000  0.19484988
A16  0.217417521 -0.01825640 -0.139590613 0.035129007 0.19484988  1.00000000
A17  0.032059264  0.12378242  0.003030122 0.099132532 0.11417183  0.16276069
A18  0.146769834  0.11462733  0.078084384 0.118859175 0.19038492  0.11865707
A19  0.059848883  0.16464032  0.136599985 0.137274177 0.28942521  0.02785369
A20  0.073303426  0.15473998 -0.014938732 0.163617291 0.10281982  0.18128078
            A17        A18        A19         A20
A11 0.032059264 0.14676983 0.05984888  0.07330343
A12 0.123782424 0.11462733 0.16464032  0.15473998
A13 0.003030122 0.07808438 0.13659999 -0.01493873
A14 0.099132532 0.11885918 0.13727418  0.16361729
A15 0.114171826 0.19038492 0.28942521  0.10281982
A16 0.162760691 0.11865707 0.02785369  0.18128078
A17 1.000000000 0.16445703 0.08992243  0.18197655
A18 0.164457030 1.00000000 0.20063525  0.14711266
A19 0.089922428 0.20063525 1.00000000  0.12698837
A20 0.181976553 0.14711266 0.12698837  1.00000000
$XYcor
              A1          A2         A3          A4            A5         A6
A1   1.000000000 -0.01456763 0.22902201 -0.01958045  0.0785518897 0.14186848
A2  -0.014567629  1.00000000 0.04063150  0.11874592  0.0337351744 0.01112626
A3   0.229022006  0.04063150 1.00000000  0.14425639  0.1696514232 0.23262417
A4  -0.019580448  0.11874592 0.14425639  1.00000000  0.2290508251 0.12795672
A5   0.078551890  0.03373517 0.16965142  0.22905083  1.0000000000 0.20678901
A6   0.141868482  0.01112626 0.23262417  0.12795672  0.2067890085 1.00000000
A7   0.139390110  0.19014999 0.10843907  0.06819190  0.1417798583 0.13833195
A8   0.140708399  0.12651933 0.23500200  0.15247844  0.1696980676 0.26335303
A9   0.008460045  0.18351148 0.04653308  0.16426408  0.0005923172 0.09394066
A10  0.197194844  0.04050948 0.17426396  0.06212562  0.0798494751 0.16750522
A11  0.166780779 -0.22320507 0.12647047 -0.13581334 -0.0490060735 0.13150042
A12  0.003167349  0.17530063 0.06208722  0.13882155  0.1209568380 0.07027754
A13 -0.036816026  0.06721778 0.05438194  0.12325819  0.1120155003 0.08964439
A14  0.091271074  0.18881355 0.07683778  0.01726061  0.0595391989 0.12288976
A15  0.217866112 -0.07954359 0.25148612  0.03808122  0.1311070501 0.20145804
A16  0.176380995 -0.07879764 0.12357110 -0.05942293 -0.0347049760 0.10072383
A17  0.151382054  0.02514926 0.09418015  0.02839357  0.0941005681 0.10878489
A18  0.093574422 -0.01078208 0.17753949 -0.02834179  0.0764949556 0.16039080
A19  0.101909531  0.01708327 0.14251456  0.10022114  0.1560892436 0.16341329
A20  0.122359912  0.07452889 0.06647894  0.02843127  0.0340475779 0.04590846
             A7           A8            A9        A10          A11          A12
A1   0.13939011  0.140708399  0.0084600449 0.19719484  0.166780779  0.003167349
A2   0.19014999  0.126519332  0.1835114788 0.04050948 -0.223205070  0.175300634
A3   0.10843907  0.235001996  0.0465330818 0.17426396  0.126470469  0.062087225
A4   0.06819190  0.152478442  0.1642640849 0.06212562 -0.135813340  0.138821552
A5   0.14177986  0.169698068  0.0005923172 0.07984948 -0.049006073  0.120956838
A6   0.13833195  0.263353034  0.0939406604 0.16750522  0.131500419  0.070277540
A7   1.00000000  0.227809613  0.1626119100 0.12891833 -0.051447451  0.124352658
A8   0.22780961  1.000000000  0.1421289142 0.26081027  0.012069893  0.168807101
A9   0.16261191  0.142128914  1.0000000000 0.14376296 -0.118977994  0.178433780
A10  0.12891833  0.260810271  0.1437629575 1.00000000  0.106981983  0.111016654
A11 -0.05144745  0.012069893 -0.1189779936 0.10698198  1.000000000 -0.131941805
A12  0.12435266  0.168807101  0.1784337802 0.11101665 -0.131941805  1.000000000
A13  0.07235065  0.199522945  0.0752472772 0.05263752 -0.102497840  0.186363272
A14  0.19178611  0.178472284  0.1270731667 0.09877432  0.008737996  0.261040420
A15  0.07986290  0.159613067  0.0393248905 0.15998728  0.202490862  0.035094986
A16  0.01511675 -0.009694718 -0.0050414545 0.09044151  0.217417521 -0.018256403
A17  0.13923290  0.113245933  0.0382121130 0.19046596  0.032059264  0.123782424
A18  0.06950194  0.138700321  0.0236112665 0.08467464  0.146769834  0.114627331
A19  0.12918458  0.185479945  0.0937705583 0.09105698  0.059848883  0.164640320
A20  0.11036651  0.077785923  0.1560727043 0.11112690  0.073303426  0.154739979
             A13         A14         A15          A16         A17         A18
A1  -0.036816026 0.091271074  0.21786611  0.176380995 0.151382054  0.09357442
A2   0.067217782 0.188813548 -0.07954359 -0.078797641 0.025149263 -0.01078208
A3   0.054381944 0.076837780  0.25148612  0.123571104 0.094180154  0.17753949
A4   0.123258187 0.017260611  0.03808122 -0.059422925 0.028393568 -0.02834179
A5   0.112015500 0.059539199  0.13110705 -0.034704976 0.094100568  0.07649496
A6   0.089644386 0.122889759  0.20145804  0.100723834 0.108784891  0.16039080
A7   0.072350650 0.191786111  0.07986290  0.015116746 0.139232895  0.06950194
A8   0.199522945 0.178472284  0.15961307 -0.009694718 0.113245933  0.13870032
A9   0.075247277 0.127073167  0.03932489 -0.005041454 0.038212113  0.02361127
A10  0.052637520 0.098774323  0.15998728  0.090441514 0.190465957  0.08467464
A11 -0.102497840 0.008737996  0.20249086  0.217417521 0.032059264  0.14676983
A12  0.186363272 0.261040420  0.03509499 -0.018256403 0.123782424  0.11462733
A13  1.000000000 0.088928005  0.02739179 -0.139590613 0.003030122  0.07808438
A14  0.088928005 1.000000000  0.07190407  0.035129007 0.099132532  0.11885918
A15  0.027391789 0.071904066  1.00000000  0.194849876 0.114171826  0.19038492
A16 -0.139590613 0.035129007  0.19484988  1.000000000 0.162760691  0.11865707
A17  0.003030122 0.099132532  0.11417183  0.162760691 1.000000000  0.16445703
A18  0.078084384 0.118859175  0.19038492  0.118657066 0.164457030  1.00000000
A19  0.136599985 0.137274177  0.28942521  0.027853687 0.089922428  0.20063525
A20 -0.014938732 0.163617291  0.10281982  0.181280782 0.181976553  0.14711266
           A19         A20
A1  0.10190953  0.12235991
A2  0.01708327  0.07452889
A3  0.14251456  0.06647894
A4  0.10022114  0.02843127
A5  0.15608924  0.03404758
A6  0.16341329  0.04590846
A7  0.12918458  0.11036651
A8  0.18547994  0.07778592
A9  0.09377056  0.15607270
A10 0.09105698  0.11112690
A11 0.05984888  0.07330343
A12 0.16464032  0.15473998
A13 0.13659999 -0.01493873
A14 0.13727418  0.16361729
A15 0.28942521  0.10281982
A16 0.02785369  0.18128078
A17 0.08992243  0.18197655
A18 0.20063525  0.14711266
A19 1.00000000  0.12698837
A20 0.12698837  1.00000000
> myxlabs
 [1] "A1"  "A2"  "A3"  "A4"  "A5"  "A6"  "A7"  "A8"  "A9"  "A10"
> myylabs
 [1] "A11" "A12" "A13" "A14" "A15" "A16" "A17" "A18" "A19" "A20"



Parameters (Session):
par1 = correlation matrix ; par2 = ATTLES connected ; par3 = ATTLES separate ; par4 = all ; par5 = all ; par6 = all ;
Parameters (R input):
par1 = correlation matrix ; par2 = ATTLES connected ; par3 = ATTLES separate ; par4 = all ; par5 = all ; par6 = all ;
R code (references can be found in the software module):
myxlabs <- 'NA'
image.plot <- function (..., add = FALSE, nlevel = 64, horizontal = FALSE,
legend.shrink = 0.9, legend.width = 1.2, legend.mar = ifelse(horizontal,
3.1, 5.1), legend.lab = NULL, graphics.reset = FALSE,
bigplot = NULL, smallplot = NULL, legend.only = FALSE, col = tim.colors(nlevel),
lab.breaks = NULL, axis.args = NULL, legend.args = NULL,
midpoint = FALSE)
{
old.par <- par(no.readonly = TRUE)
info <- image.plot.info(...)
if (add) {
big.plot <- old.par$plt
}
if (legend.only) {
graphics.reset <- TRUE
}
if (is.null(legend.mar)) {
legend.mar <- ifelse(horizontal, 3.1, 5.1)
}
temp <- image.plot.plt(add = add, legend.shrink = legend.shrink,
legend.width = legend.width, legend.mar = legend.mar,
horizontal = horizontal, bigplot = bigplot, smallplot = smallplot)
smallplot <- temp$smallplot
bigplot <- temp$bigplot
if (!legend.only) {
if (!add) {
par(plt = bigplot)
}
if (!info$poly.grid) {
image(..., add = add, col = col)
}
else {
poly.image(..., add = add, col = col, midpoint = midpoint)
}
big.par <- par(no.readonly = TRUE)
}
if ((smallplot[2] < smallplot[1]) | (smallplot[4] < smallplot[3])) {
par(old.par)
stop('plot region too small to add legend
')
}
ix <- 1
minz <- info$zlim[1]
maxz <- info$zlim[2]
binwidth <- (maxz - minz)/nlevel
midpoints <- seq(minz + binwidth/2, maxz - binwidth/2, by = binwidth)
iy <- midpoints
iz <- matrix(iy, nrow = 1, ncol = length(iy))
breaks <- list(...)$breaks
par(new = TRUE, pty = 'm', plt = smallplot, err = -1)
if (is.null(breaks)) {
axis.args <- c(list(side = ifelse(horizontal, 1, 4),
mgp = c(3, 1, 0), las = ifelse(horizontal, 0, 2)),
axis.args)
}
else {
if (is.null(lab.breaks)) {
lab.breaks <- format(breaks)
}
axis.args <- c(list(side = ifelse(horizontal, 1, 4),
mgp = c(3, 1, 0), las = ifelse(horizontal, 0, 2),
at = breaks, labels = lab.breaks), axis.args)
}
if (!horizontal) {
if (is.null(breaks)) {
image(ix, iy, iz, xaxt = 'n', yaxt = 'n', xlab = '',
ylab = '', col = col)
}
else {
image(ix, iy, iz, xaxt = 'n', yaxt = 'n', xlab = '',
ylab = '', col = col, breaks = breaks)
}
}
else {
if (is.null(breaks)) {
image(iy, ix, t(iz), xaxt = 'n', yaxt = 'n', xlab = '',
ylab = '', col = col)
}
else {
image(iy, ix, t(iz), xaxt = 'n', yaxt = 'n', xlab = '',
ylab = '', col = col, breaks = breaks)
}
}
box()
if (!is.null(legend.lab)) {
legend.args <- list(text = legend.lab, side = ifelse(horizontal,
1, 4), line = legend.mar - 2)
}
if (!is.null(legend.args)) {
}
mfg.save <- par()$mfg
if (graphics.reset | add) {
par(old.par)
par(mfg = mfg.save, new = FALSE)
invisible()
}
else {
par(big.par)
par(plt = big.par$plt, xpd = FALSE)
par(mfg = mfg.save, new = FALSE)
invisible()
}
}
image.plot.plt <- function (x, add = FALSE, legend.shrink = 0.9, legend.width = 1,
horizontal = FALSE, legend.mar = NULL, bigplot = NULL, smallplot = NULL,
...)
{
old.par <- par(no.readonly = TRUE)
if (is.null(smallplot))
stick <- TRUE
else stick <- FALSE
if (is.null(legend.mar)) {
legend.mar <- ifelse(horizontal, 3.1, 5.1)
}
char.size <- ifelse(horizontal, par()$cin[2]/par()$din[2],
par()$cin[1]/par()$din[1])
offset <- char.size * ifelse(horizontal, par()$mar[1], par()$mar[4])
legend.width <- char.size * legend.width
legend.mar <- legend.mar * char.size
if (is.null(smallplot)) {
smallplot <- old.par$plt
if (horizontal) {
smallplot[3] <- legend.mar
smallplot[4] <- legend.width + smallplot[3]
pr <- (smallplot[2] - smallplot[1]) * ((1 - legend.shrink)/2)
smallplot[1] <- smallplot[1] + pr
smallplot[2] <- smallplot[2] - pr
}
else {
smallplot[2] <- 1 - legend.mar
smallplot[1] <- smallplot[2] - legend.width
pr <- (smallplot[4] - smallplot[3]) * ((1 - legend.shrink)/2)
smallplot[4] <- smallplot[4] - pr
smallplot[3] <- smallplot[3] + pr
}
}
if (is.null(bigplot)) {
bigplot <- old.par$plt
if (!horizontal) {
bigplot[2] <- min(bigplot[2], smallplot[1] - offset)
}
else {
bottom.space <- old.par$mar[1] * char.size
bigplot[3] <- smallplot[4] + offset
}
}
if (stick & (!horizontal)) {
dp <- smallplot[2] - smallplot[1]
smallplot[1] <- min(bigplot[2] + offset, smallplot[1])
smallplot[2] <- smallplot[1] + dp
}
return(list(smallplot = smallplot, bigplot = bigplot))
}
image.plot.info <- function (...)
{
temp <- list(...)
xlim <- NA
ylim <- NA
zlim <- NA
poly.grid <- FALSE
if (is.list(temp[[1]])) {
xlim <- range(temp[[1]]$x, na.rm = TRUE)
ylim <- range(temp[[1]]$y, na.rm = TRUE)
zlim <- range(temp[[1]]$z, na.rm = TRUE)
if (is.matrix(temp[[1]]$x) & is.matrix(temp[[1]]$y) &
is.matrix(temp[[1]]$z)) {
poly.grid <- TRUE
}
}
if (length(temp) >= 3) {
if (is.matrix(temp[[1]]) & is.matrix(temp[[2]]) & is.matrix(temp[[3]])) {
poly.grid <- TRUE
}
}
if (is.matrix(temp[[1]]) & !poly.grid) {
xlim <- c(0, 1)
ylim <- c(0, 1)
zlim <- range(temp[[1]], na.rm = TRUE)
}
if (length(temp) >= 3) {
if (is.matrix(temp[[3]])) {
xlim <- range(temp[[1]], na.rm = TRUE)
ylim <- range(temp[[2]], na.rm = TRUE)
zlim <- range(temp[[3]], na.rm = TRUE)
}
}
if (is.matrix(temp$x) & is.matrix(temp$y) & is.matrix(temp$z)) {
poly.grid <- TRUE
}
xthere <- match('x', names(temp))
ythere <- match('y', names(temp))
zthere <- match('z', names(temp))
if (!is.na(zthere))
zlim <- range(temp$z, na.rm = TRUE)
if (!is.na(xthere))
xlim <- range(temp$x, na.rm = TRUE)
if (!is.na(ythere))
ylim <- range(temp$y, na.rm = TRUE)
if (!is.null(temp$zlim))
zlim <- temp$zlim
if (!is.null(temp$xlim))
xlim <- temp$xlim
if (!is.null(temp$ylim))
ylim <- temp$ylim
list(xlim = xlim, ylim = ylim, zlim = zlim, poly.grid = poly.grid)
}
matcor <- function (X, Y, method='kendall') {
matcorX = cor(X, use = 'pairwise', method=method)
matcorY = cor(Y, use = 'pairwise', method=method)
matcorXY = cor(cbind(X, Y), use = 'pairwise', method=method)
return(list(Xcor = matcorX, Ycor = matcorY, XYcor = matcorXY))
}
matcor.p <- function (X, Y, method='kendall') {
lx <- length(X[1,])
ly <- length(Y[1,])
myretarr <- array(NA,dim=c(lx,ly))
mymetaarr.x <- array(0,dim=c(lx,10))
mymetaarr.y <- array(0,dim=c(ly,10))
mymetaarr.xp <- array(0,dim=c(lx,10))
mymetaarr.yp <- array(0,dim=c(ly,10))
for (xi in 1:lx) {
for (yi in 1:ly) {
myretarr[xi,yi] <- cor.test(X[,xi],Y[,yi],method=method)$p.value
for (myp in (1:10)) {
if (myretarr[xi,yi] < myp/1000) {
mymetaarr.x[xi,myp] = mymetaarr.x[xi,myp] + 1
mymetaarr.y[yi,myp] = mymetaarr.y[yi,myp] + 1
}
}
}
}
mymetaarr.xp = mymetaarr.x / ly
mymetaarr.yp = mymetaarr.y / lx
return(list(XYcor = myretarr, Xmeta = mymetaarr.x, Ymeta = mymetaarr.y, Xmetap = mymetaarr.xp, Ymetap = mymetaarr.yp))
}
tim.colors <- function (n = 64) {
orig <- c('#00008F', '#00009F', '#0000AF', '#0000BF', '#0000CF',
'#0000DF', '#0000EF', '#0000FF', '#0010FF', '#0020FF',
'#0030FF', '#0040FF', '#0050FF', '#0060FF', '#0070FF',
'#0080FF', '#008FFF', '#009FFF', '#00AFFF', '#00BFFF',
'#00CFFF', '#00DFFF', '#00EFFF', '#00FFFF', '#10FFEF',
'#20FFDF', '#30FFCF', '#40FFBF', '#50FFAF', '#60FF9F',
'#70FF8F', '#80FF80', '#8FFF70', '#9FFF60', '#AFFF50',
'#BFFF40', '#CFFF30', '#DFFF20', '#EFFF10', '#999999',
'#FFEF00', '#FFDF00', '#FFCF00', '#FFBF00', '#FFAF00',
'#FF9F00', '#FF8F00', '#FF8000', '#FF7000', '#FF6000',
'#FF5000', '#FF4000', '#FF3000', '#FF2000', '#FF1000',
'#FF0000', '#EF0000', '#DF0000', '#CF0000', '#BF0000',
'#AF0000', '#9F0000', '#8F0000', '#800000')
if (n == 64)
return(orig)
rgb.tim <- t(col2rgb(orig))
temp <- matrix(NA, ncol = 3, nrow = n)
x <- seq(0, 1, , 64)
xg <- seq(0, 1, , n)
for (k in 1:3) {
hold <- splint(x, rgb.tim[, k], xg)
hold[hold < 0] <- 0
hold[hold > 255] <- 255
temp[, k] <- round(hold)
}
rgb(temp[, 1], temp[, 2], temp[, 3], maxColorValue = 255)
}
img.matcor <- function (correl, title='XY correlation') {
matcorX = correl$Xcor
matcorY = correl$Ycor
matcorXY = correl$XYcor
lX = ncol(matcorX)
lY = ncol(matcorY)
def.par <- par(no.readonly = TRUE)
par(mfrow = c(1, 1), pty = 's')
image(1:(lX + lY), 1:(lX + lY), t(matcorXY[nrow(matcorXY):1,]), zlim = c(-1, 1), main = title,
col = tim.colors(64), axes = FALSE, , xlab = '', ylab = '')
box()
abline(h = lY + 0.5, v = lX + 0.5, lwd = 2, lty = 2)
image.plot(legend.only = TRUE, zlim = c(-1, 1), col = tim.colors(64), horizontal = TRUE)
par(def.par)
}
x <- as.data.frame(read.table(file='https://automated.biganalytics.eu/download/utaut.csv',sep=',',header=T))
x$U25 <- 6-x$U25
if(par4 == 'female') x <- x[x$Gender==0,]
if(par4 == 'male') x <- x[x$Gender==1,]
if(par5 == 'prep') x <- x[x$Pop==1,]
if(par5 == 'bachelor') x <- x[x$Pop==0,]
if(par6 != 'all') {
x <- x[x$Year==as.numeric(par6),]
}
cAc <- with(x,cbind( A1, A2, A3, A4, A5, A6, A7, A8, A9,A10))
cAs <- with(x,cbind(A11,A12,A13,A14,A15,A16,A17,A18,A19,A20))
cA <- cbind(cAc,cAs)
cCa <- with(x,cbind(C1,C3,C5,C7, C9,C11,C13,C15,C17,C19,C21,C23,C25,C27,C29,C31,C33,C35,C37,C39,C41,C43,C45,C47))
cCp <- with(x,cbind(C2,C4,C6,C8,C10,C12,C14,C16,C18,C20,C22,C24,C26,C28,C30,C32,C34,C36,C38,C40,C42,C44,C46,C48))
cC <- cbind(cCa,cCp)
cU <- with(x,cbind(U1,U2,U3,U4,U5,U6,U7,U8,U9,U10,U11,U12,U13,U14,U15,U16,U17,U18,U19,U20,U21,U22,U23,U24,U25,U26,U27,U28,U29,U30,U31,U32,U33))
cE <- with(x,cbind(BC,NNZFG,MRT,AFL,LPM,LPC,W,WPA))
cX <- with(x,cbind(X1,X2,X3,X4,X5,X6,X7,X8,X9,X10,X11,X12,X13,X14,X15,X16,X17,X18))
if (par2=='ATTLES connected') myX <- cAc
if (par3=='ATTLES connected') myY <- cAc
if (par2=='ATTLES separate') myX <- cAs
if (par3=='ATTLES separate') myY <- cAs
if (par2=='ATTLES all') myX <- cA
if (par3=='ATTLES all') myY <- cA
if (par2=='COLLES actuals') myX <- cCa
if (par3=='COLLES actuals') myY <- cCa
if (par2=='COLLES preferred') myX <- cCp
if (par3=='COLLES preferred') myY <- cCp
if (par2=='COLLES all') myX <- cC
if (par3=='COLLES all') myY <- cC
if (par2=='CSUQ') myX <- cU
if (par3=='CSUQ') myY <- cU
if (par2=='Learning Activities') myX <- cE
if (par3=='Learning Activities') myY <- cE
if (par2=='Exam Items') myX <- cX
if (par3=='Exam Items') myY <- cX
bitmap(file='pic1.png')
if (par1=='correlation matrix') {
correl <- with(x,matcor(myX,myY))
myoutput <- correl
myxlabs <- colnames(myX)
myylabs <- colnames(myY)
img.matcor(correl, title=paste(par2,' and ',par3,sep=''))
dev.off()
}
if (par1=='meta analysis (separate)') {
myl <- length(myY[1,])
nr <- round(sqrt(myl))
nc <- nr
if (nr*nr < myl) nc = nc +1
r <- matcor.p(myX,myY)
myoutput <- r$Ymetap
myylabs <- colnames(myY)
op <- par(mfrow=c(nr,nc))
for (i in 1:myl) {
plot((1:10)/1000,r$Ymetap[i,],xlab='type I error',ylab='#sign./#corr.',main=colnames(myY)[i], type='b',ylim=c(0,max(r$Ymetap[i,])))
abline(0,1)
grid()
}
par(op)
dev.off()
}
if (par1=='meta analysis (overlay)') {
myl <- length(myY[1,])
r <- matcor.p(myX,myY)
myoutput <- r$Ymetap
myylabs <- colnames(myY)
plot((1:10)/1000,r$Ymetap[1,], xlab='type I error', ylab='#sign./#corr.', main=par3, type='b', ylim=c(0,max(r$Ymetap)), xlim=c(0.001,0.01+ (myl+1)*0.0002))
abline(0,1)
grid()
for (i in 2:myl) {
lines((1:10)/1000,r$Ymetap[i,],type='b',lty=i)
}
for (i in 1:myl) text(0.0105+0.0002*i, r$Ymetap[i,10], labels = colnames(myY)[i], cex=0.7)
dev.off()
}
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Computational Result',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('
',RC.texteval('myoutput; myxlabs; myylabs'),'
',sep=''))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable.tab')