# NOT RUN {
K1 <- 5;K2 <- 7;
a <- 1.5;b <- 0.5
rocDataRaw <- SimulateRocDataset(K1 = K1, K2 = K2,
a = a, b = b)
## plot the data
ret <- PlotEmpiricalOperatingCharacteristics(rocDataRaw, trts= 1,
rdrs = 1, opChType = "ROC")
print(ret$Plot)
# }
Run the code above in your browser using DataLab