Parameter names formatting

Source: R/format_parameters.R

Parameter names formatting

format_parameters(model)

Arguments

model

A statistical model.

Value

The formatted parameter names.

Examples

library(parameters)

model <- lm(Sepal.Length ~ Species * Sepal.Width, data = iris)
format_parameters(model)

#>                          (Intercept)                    Speciesversicolor 
#>                        "(Intercept)"               "Species [versicolor]" 
#>                     Speciesvirginica                          Sepal.Width 
#>                "Species [virginica]"                        "Sepal.Width" 
#>        Speciesversicolor:Sepal.Width         Speciesvirginica:Sepal.Width 
#> "Species [versicolor] * Sepal.Width"  "Species [virginica] * Sepal.Width" 

model <- lm(Sepal.Length ~ Species / Petal.Length, data = iris)
format_parameters(model)

#>                           (Intercept)                     Speciesversicolor 
#>                         "(Intercept)"                "Species [versicolor]" 
#>                      Speciesvirginica            Speciessetosa:Petal.Length 
#>                 "Species [virginica]"     "Species [setosa] : Petal.Length" 
#>        Speciesversicolor:Petal.Length         Speciesvirginica:Petal.Length 
#> "Species [versicolor] : Petal.Length"  "Species [virginica] : Petal.Length" 

model <- lm(Sepal.Length ~ Petal.Length + (Species / Sepal.Width), data = iris)
format_parameters(model)

#>                          (Intercept)                         Petal.Length 
#>                        "(Intercept)"                       "Petal.Length" 
#>                    Speciesversicolor                     Speciesvirginica 
#>               "Species [versicolor]"                "Species [virginica]" 
#>            Speciessetosa:Sepal.Width        Speciesversicolor:Sepal.Width 
#>     "Species [setosa] : Sepal.Width" "Species [versicolor] : Sepal.Width" 
#>         Speciesvirginica:Sepal.Width 
#>  "Species [virginica] : Sepal.Width" 

model <- lm(Sepal.Length ~ Species + poly(Sepal.Width, 2), data = iris)
format_parameters(model)

#>                (Intercept)          Speciesversicolor 
#>              "(Intercept)"     "Species [versicolor]" 
#>           Speciesvirginica      poly(Sepal.Width, 2)1 
#>      "Species [virginica]" "Sepal.Width [1st degree]" 
#>      poly(Sepal.Width, 2)2 
#> "Sepal.Width [2nd degree]" 

model <- lm(Sepal.Length ~ Species + poly(Sepal.Width, 2, raw = TRUE), data = iris)
format_parameters(model)

#>                       (Intercept)                 Speciesversicolor 
#>                     "(Intercept)"            "Species [versicolor]" 
#>                  Speciesvirginica poly(Sepal.Width, 2, raw = TRUE)1 
#>             "Species [virginica]"        "Sepal.Width [1st degree]" 
#> poly(Sepal.Width, 2, raw = TRUE)2 
#>        "Sepal.Width [2nd degree]"