R/inference.R

In pachamaltese/casen: Metodos De Estimacion Con Disenio Probabilistico y Estratificado en Encuesta CASEN (Estimation Methods with Probabilistic Stratified Sampling in CASEN Survey)

#' Modelo lineal generalizado con diseño complejo
#' @description Usa los factores de expansion, conglomerados y estratos para
#' ajustar un modelo lineal generalizado con las variables definidas por el
#' usuario.
#' @param disenio la salida de `configuracion_disenio()` que provee ademas los
#' grupos y las variables en forma de lista
#' @param modelo una expresion simbolica escrita como cadena de texto, consulta
#' [stats::formula()] para los detalles de modelos con componentes logaritmicas,
#' cuadraticas, etc.
#' @importFrom survey svyglm
#' @return Una lista cuyas clases son svyglm, glm y lm.
#' @examples
#' cd <- configuracion_disenio(casen_2017_los_rios, "ytotcorh", c("comuna", "sexo"), "expc")
#' modelo_lineal_generalizado(cd, "ytotcorh ~ comuna + sexo")
#' @export
modelo_lineal_generalizado <- function(disenio, modelo = "ytotcorh ~ sexo") {
  fit <- survey::svyglm(stats::as.formula(modelo), design = disenio$disenio)
  return(fit)
}