Return the assign attribute attached to the object returned by stats::model.matrix().

model_get_assign(model)

# S3 method for default
model_get_assign(model)

# S3 method for vglm
model_get_assign(model)

# S3 method for model_fit
model_get_assign(model)

Arguments

model

a model object

Examples

lm(hp ~ mpg + factor(cyl), mtcars) %>%
  model_get_assign()
#> [1] 0 1 2 2
#> attr(,"model_matrix")
#>                     (Intercept)  mpg factor(cyl)6 factor(cyl)8
#> Mazda RX4                     1 21.0            1            0
#> Mazda RX4 Wag                 1 21.0            1            0
#> Datsun 710                    1 22.8            0            0
#> Hornet 4 Drive                1 21.4            1            0
#> Hornet Sportabout             1 18.7            0            1
#> Valiant                       1 18.1            1            0
#> Duster 360                    1 14.3            0            1
#> Merc 240D                     1 24.4            0            0
#> Merc 230                      1 22.8            0            0
#> Merc 280                      1 19.2            1            0
#> Merc 280C                     1 17.8            1            0
#> Merc 450SE                    1 16.4            0            1
#> Merc 450SL                    1 17.3            0            1
#> Merc 450SLC                   1 15.2            0            1
#> Cadillac Fleetwood            1 10.4            0            1
#> Lincoln Continental           1 10.4            0            1
#> Chrysler Imperial             1 14.7            0            1
#> Fiat 128                      1 32.4            0            0
#> Honda Civic                   1 30.4            0            0
#> Toyota Corolla                1 33.9            0            0
#> Toyota Corona                 1 21.5            0            0
#> Dodge Challenger              1 15.5            0            1
#> AMC Javelin                   1 15.2            0            1
#> Camaro Z28                    1 13.3            0            1
#> Pontiac Firebird              1 19.2            0            1
#> Fiat X1-9                     1 27.3            0            0
#> Porsche 914-2                 1 26.0            0            0
#> Lotus Europa                  1 30.4            0            0
#> Ford Pantera L                1 15.8            0            1
#> Ferrari Dino                  1 19.7            1            0
#> Maserati Bora                 1 15.0            0            1
#> Volvo 142E                    1 21.4            0            0
#> attr(,"model_matrix")attr(,"assign")
#> [1] 0 1 2 2
#> attr(,"model_matrix")attr(,"contrasts")
#> attr(,"model_matrix")attr(,"contrasts")$`factor(cyl)`
#> [1] "contr.treatment"
#>