## Declare simulated data as metaSDTdata
metadata <- metaSDTdata(simMetaData, type1='resp', type2='conf', signal='S')
## Fit model to subset of data
fit <- metaSDTreg(A ~ signal,
data=metadata,
subset = m <= 20)
## Plot observed type 1 ROC points
plot(predict_roc(metadata, type = '1'), xlim = 0:1, ylim = 0:1)
## Add Model-predicted ROC curve (estimated from subset of data)
lines(predict_roc(fit, type = '1'))
Run the code above in your browser using DataLab