Determine if x consists out of site_models objects

are_site_models(x)

Arguments

x

the object to check if it consists out of site_models objects

Value

TRUE if x, or all elements of x, are site_model objects

See also

Use create_site_model to create a site model

Author

Richèl J.C. Bilderbeek

Examples

  jc69_site_model <- create_jc69_site_model()
  gtr_site_model <- create_gtr_site_model()
  both_site_models <- list(jc69_site_model, gtr_site_model)
  testit::assert(are_site_models(jc69_site_model))
  testit::assert(are_site_models(gtr_site_model))
  testit::assert(are_site_models(both_site_models))