Combine multinom objects into a list.

multinom_list(...)

Arguments

...

Objects of class multinom, which can be named.

Value

An object of class multinom_list.

Examples

 library("nnet")
 library("data.table")
 trans_data <- data.table(multinom3_exdata$transitions)
 dat_healthy <- trans_data[state_from == "Healthy"]
 fit_healthy <- multinom(state_to ~ strategy_name + female + age_cat + year_cat, 
                          data = dat_healthy)
#> # weights:  24 (14 variable)
#> initial  value 18688.493643 
#> iter  10 value 18380.224323
#> iter  20 value 18335.884276
#> iter  20 value 18335.884274
#> iter  20 value 18335.884274
#> final  value 18335.884274 
#> converged
 dat_sick <- trans_data[state_from == "Sick"]
 dat_sick$state_to <- droplevels(dat_sick$state_to)
 fit_sick <- multinom(state_to ~ strategy_name + female + age_cat + year_cat, 
                      data = dat_sick)
#> # weights:  8 (7 variable)
#> initial  value 6903.052771 
#> iter  10 value 6831.929247
#> final  value 6831.929171 
#> converged
 fits <- multinom_list(healthy = fit_healthy, sick = fit_sick)
 class(fits)
#> [1] "multinom_list"