Mental health data: Correspondence analysis

data

data(Mental)
Mental.tab <- xtabs(Freq ~ mental+ses, data=Mental)

correspondence analysis

ca(Mental.tab)

## 
##  Principal inertias (eigenvalues):
##            1        2        3       
## Value      0.026025 0.001379 0.000298
## Percentage 93.95%   4.98%    1.08%   
## 
## 
##  Rows:
##            Well      Mild Moderate Impaired
## Mass     0.1849  0.362651  0.21807   0.2343
## ChiDist  0.2608  0.042750  0.07140   0.2387
## Inertia  0.0126  0.000663  0.00111   0.0133
## Dim. 1  -1.6088 -0.183408  0.08808   1.4715
## Dim. 2   0.3259  0.636852 -1.88225   0.5089
## 
## 
##  Columns:
##                1        2         3        4       5       6
## Mass     0.15783  0.14759  0.172892 0.231325 0.15964  0.1307
## ChiDist  0.18402  0.18737  0.063947 0.044398 0.17136  0.2943
## Inertia  0.00534  0.00518  0.000707 0.000456 0.00469  0.0113
## Dim. 1  -1.12156 -1.14675 -0.365921 0.055088 1.02523  1.7833
## Dim. 2  -0.51829 -0.31304 -0.597693 1.133091 1.17420 -1.6693

Plot the ca solution

plot(ca(Mental.tab), lines = TRUE)