# NOT RUN {
## with ties in phat
# }
# NOT RUN {
resp <- c(0, rep(1, 99))
prob <- rep(1, 100)
TOP1(y = resp, phat = prob) # expect 0
resp <- c(1, 1, 1, rep(0, 95), 1, 1)
prob <- c(1, 1, 1, rep(0, 97))
TOP1(y = resp, phat = prob) # expect 1
## no ties in phat
resp <- c(0, rep(1, 99))
prob <- (100:1)*0.01
TOP1(y = resp, phat = prob) # expect 0
resp <- c(1, rep(0, 99))
TOP1(y = resp, phat = prob) # expect 1
# }
Run the code above in your browser using DataLab