Open KamilKraw opened 7 years ago
logistic <- function(formula,data,family,extras){ if(is.null(family)){ retrun("abc") # Podstawowe modele włączane przez podanie argumentu family, wielomianowy model }else{ # - nlevels("objaśniana") > 2 ? object <- multinom(formula,family=family,data=data) } extra <- c(AIC=glance(object)$AIC ,BIC=glance(object)$BIC
)
results <- list(object,extra[extras]) return(results) }
Próbowałem różnych pakietów co podawałeś, lecz praktycznie żaden nie ma wsparcia z broom.. multinom z {nnet} przynajmniej dostaje AIC
Coś działasz czy zamykamy sprawę?
BERENZ
commented
7 years ago BERENZ
commented
7 years ago
logistic <- function(formula,data,family,extras){ if(is.null(family)){ retrun("abc") # Podstawowe modele włączane przez podanie argumentu family, wielomianowy model }else{ # - nlevels("objaśniana") > 2 ? object <- multinom(formula,family=family,data=data) } extra <- c(AIC=glance(object)$AIC ,BIC=glance(object)$BIC
,...,
results <- list(object,extra[extras]) return(results) }
Próbowałem różnych pakietów co podawałeś, lecz praktycznie żaden nie ma wsparcia z broom.. multinom z {nnet} przynajmniej dostaje AIC