demo <- phi.demo() #compare the phi (lower off diagonal and polychoric correlations (upper off diagonal)
#show the result from tetrachoric which corrects for zero entries by default
round(demo$tetrachoric$rho,2)
#show the result from phi2poly
#tetrachorics above the diagonal, phi below the diagonal
round(demo$phis,2)
Run the code above in your browser using DataLab