if (FALSE) ordPmat1 = matrix( c(0.15,0.70,0.40,
0.55,0.10,0.25,
0.25,0.10,0.15,
0.05,0.10,0.20),4,3,byrow=TRUE)
if (FALSE) cmat1= matrix( c(1,0.2,0.2,
0.2,1,0.2,
0.2,0.2,1),3,3,byrow=TRUE)
if (FALSE) binObj=simBinCorr(ordPmat1, cmat1, no.rows=100000, steps=0.025)
if (FALSE) myData = genOrd( 1000, ordPmat1, binObj)
Run the code above in your browser using DataLab