tests/testthat/drafts/doIMRMCquickTest.R

In iMRMC: Multi-Reader, Multi-Case Analysis Methods (ROC, Agreement, and Other Metrics)

library(iMRMC)

# Create an MRMC data frame
config.gRoeMetz <- sim.gRoeMetz.config()

# Simulate data
df.MRMC <- sim.gRoeMetz(config.gRoeMetz)

result <- tryCatch(
  doIMRMC(df.MRMC),
  warning = function(w) {},
  error = function(w) {}
)