Compare two MizerParams objects and print out differences

compareParams(params1, params2)

Arguments

params1

First MizerParams object

params2

Second MizerParams object

Examples

# \dontrun{ sp1 <- NS_species_params params1 <- newMultispeciesParams(sp1)
#> Note: No h provided for some species, so using f0 and k_vb to calculate it.
#> Note: Because you have n != p, the default value is not very good.
#> Note: No ks column so calculating from critical feeding level.
#> Note: Using z0 = z0pre * w_inf ^ z0exp for missing z0 values.
#> Note: Using f0, h, lambda, kappa and the predation kernel to calculate gamma.
sp2 <- sp1 sp2$w_mat[1] <- 10 params2 <- newMultispeciesParams(sp2)
#> Note: No h provided for some species, so using f0 and k_vb to calculate it.
#> Note: Because you have n != p, the default value is not very good.
#> Note: No ks column so calculating from critical feeding level.
#> Note: Using z0 = z0pre * w_inf ^ z0exp for missing z0 values.
#> Note: Using f0, h, lambda, kappa and the predation kernel to calculate gamma.
compareParams(params1, params2)
#> [1] "The following species parameters differ: Component “w_mat”: Mean relative difference: 0.2307692, Component “h”: Mean relative difference: 0.08213352, Component “ks”: Mean relative difference: 0.09163879, Component “w_mat25”: Mean relative difference: 0.2307692" #> [1] "The maturity slots do not agree: Mean relative difference: 0.07096149" #> [1] "The psi slots do not agree: Mean relative difference: 0.2512933" #> [1] "The intake_max slots do not agree: Mean relative difference: 0.08213352" #> [1] "The metab slots do not agree: Mean relative difference: 0.09163879" #> [1] "The gear_params slots do not agree: Component “knife_edge_size”: Mean relative difference: 0.2307692" #> [1] "The selectivity slots do not agree: Mean absolute difference: 1"
# }