R/estimatetype2.R

estimatetype2 = function(score1, cutoff){
  if(is.na(cutoff)){
    stop('The cutoff is NA')
  }else{
    return(mean(score1 <= cutoff))
  }
}
yiling0210/NPCriterion documentation built on May 10, 2019, 1:25 p.m.