# NOT RUN {
set.seed(1)
K1 <- 5;K2 <- 7;
maxLL <- 2;lesionNum <- floor(runif(K2, 1, maxLL + 1))
mu <- 1;lambda <- 1;nu <- 1 ;zeta1 <- -1
I <- 2; J <- 5
frocDataRaw <- SimulateFrocDataset(
mu = mu, lambda = lambda, nu = nu, zeta1 = zeta1,
I = I, J = J, K1 = K1, K2 = K2, lesionNum = lesionNum )
## plot the data
ret <- PlotEmpiricalOperatingCharacteristics(frocDataRaw, trts= 1,
rdrs = 1, opChType = "FROC")
print(ret$Plot)
# }
Run the code above in your browser using DataLab