> NIR_Mturk_subjects[15:20]
   Desire Immoral Undetected Anger Prevalence Detectable
1      13     100         88    50         49         75
3       0      80         60    70          0         40
4       0     100        100    64          0         79
5       0     100         20   100          0         50
6     100     100        100    93         88         36
7       0     100         59    76         59        100
8      89      92         90    50         35         94
9      52      94         53    44          4         71
10      1      98          0    64          0         98
12    100     100          9    99         63         83
13      0      93         26    85          4         31
15     59      63         43    65         84         66
16     29      98         31    94          5         38
17      0     100         50   100         49         49
19     24     100         54    58          0         74
22     22     100         16   100         56         77
23     12      75         73    37          9         23
24      2     100         61    99         45         85
25     17     100         70    67         38        100
26     73      90         67    63         66         85
31      0      35          0   100          0         99
32     53      51         64    74          0         73
33      0     100          0   100         74         50
34     61      99         86    44          0         57
35     41     100         62   100          0         82
37     59     100        100   100          0         88
38     50     100         50    90         80          0
39      0     100         87   100         92         97
41      0     100          0    99          0        100
44      0      92         54    50        100         50
46      1     100          3    99         73         70
47      6      84         95    40          0         32
48      0      72         93   100          1         92
49      0     100         90    97          0         50
50      3      74         54    90          0         79
51     77      55         59    40        100         12
52      0     100         94    96          0        100
53     52      74         13    65         64         28
54      0     100         28    97          5        100
55      0     100         71   100        100         89
56     63      86         55    74          3         61
57      0     100         28    72         51         63
58      0     100         50   100         12         50
60      0     100         74    67         23         68
61      0     100        100   100         99          0
62     18      63         72   100          2         79
63      0     100         99    50          0          0
65     50      75         36    52          0         11
66     49      56         49    52          0         50
69     52     100         86    53          8         73
70      0     100        100   100          0        100
73     17      91         45    80          6         74
75    100     100         10    60         72         58
77     83      65         34    92         61         21
> fit = princomp(NIR_Mturk_subjects[15:20],cor=TRUE)
Error in cov.wt(z) : 'x' must contain finite values only