R/utils.R

Defines functions covered interval_length

 covered <- function(true, lower, upper){
   ifelse(true > lower & true < upper, 1, 0) %>% sum %>% '/'(length(true))
 }
 
 interval_length <- function(lower, upper, fun = list(mean)){
    fun[[1]](upper - lower)
 }
 
ozgurasarstat/ttmodel1 documentation built on May 25, 2019, 8:28 p.m.