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) p=find.binary.prob(ordPmat1)
if (FALSE) finalCorr = simBinCorr(ordPmat1, cmat1, no.rows=100000)
if (FALSE) y=generate.binary( 1000, p$p, finalCorr$del.next)
Run the code above in your browser using DataLab