R/brve.r

In eunices/brve: Binary Regression Varying Effort Modelling

#' Binary Regression Varying Effort model
#'
#' @param y 
#' @param X 
#' @param effort 
#'
#' @return
#' @export
#' @inheritParams 
#'
#' @examples
brve <- function (formula, effort, data) {
  
    # fit the model
    m <- glm(formula = formula,
             offset = log(effort),
             data = data,
             family = binomial("cloglog"))

    # tell it that it has a class (s3)
    class(m) <- c("brve", class(m))

    # return the model object
    m

}