Check if model or object is trimmed
Examples
m <- example_models$energyRt$multimod
is_trimmed(m)
#> [1] FALSE
m_trimmed <- trim_model(m, verbose = FALSE)
is_trimmed(m_trimmed)
#> [1] TRUE
is_trimmed(m_trimmed$parameters$pTechOlife)
#> [1] FALSE
Check if model or object is trimmed
m <- example_models$energyRt$multimod
is_trimmed(m)
#> [1] FALSE
m_trimmed <- trim_model(m, verbose = FALSE)
is_trimmed(m_trimmed)
#> [1] TRUE
is_trimmed(m_trimmed$parameters$pTechOlife)
#> [1] FALSE