# NOT RUN {
#finalize rmatA
finalCmat <- finalize(convmat)
#finalize rmatB
finalRmat <- finalize(rmat)
#finalize rmatC
finalYmat <- finalize(rmat)
#equate rmatA and rmatB
eq <- equate.multi(finalCmat,finalRmat,finalYmat)
#obtain respective equated response matrices
eqCmat <- eq$dataset1
eqRmat <- eq$dataset2
eqYmat <- eq$dataset3
# }
Run the code above in your browser using DataLab