if(require(mvtnorm)) {
data(bock)
tetrachor(lsat6)
tetrachor(matrix(c(44268,193,14,0),2,2)) #MPLUS reports.24
tetrachor(matrix(c(61661,1610,85,20),2,2)) #Mplus reports .35
tetrachor(matrix(c(62503,105,768,0),2,2)) #Mplus reports -.10
tetrachor(matrix(c(24875,265,47,0),2,2)) #Mplus reports 0
tetrachor(c(0.02275000, 0.0227501320, 0.500000000))
tetrachor(c(0.0227501320, 0.0227501320, 0.500000000)) } else {message("Sorry, you must have mvtnorm installed")}
Run the code above in your browser using DataLab