# load example data
data(selection.example.data)
# give me only those rows that have full information
new.dat = selection.example.data[!is.na(selection.example.data$Performance),]
# correct assuming direct selection on R, indirect on biodata, and a dv of performance
corrected = caseIIIR(data.matrix = new.dat, SR=.5)
corrected = caseIIIR(rtp=.4, rsp=.3, rts=.5, SR=.5)
Run the code above in your browser using DataLab