as_ypr_ecotype() easy way to combine two populations

[aylapear]

Your Idea

It was clunky to set up a ecotype.

This feels like a more logical way to set up the ecotypes.

horse_lt_small <- 
    ypr_update(
    horse_lt,  
    Wa = Wa$Estimate
)

horse_lt_large <- 
  ypr_update(
    horse_lt_small,
    k2 = k2$Estimate
)

horse_lt_ecotypes <- 
  as_ypr_ecotype(
    c(horse_lt_small, horse_lt_large), 
    names = c("small", "large")
)

This is how it was done.

ecotype <- 
  ypr_ecotypes(
  Wa = Wa$Estimate,
  Wb = Wb$Estimate,
  k = k$Estimate,
  # in cm 
  Linf = Linf$Estimate,
  es = c(Es_small$Estimate, Es_big$Estimate),
  nL = nL$Estimate,
  pi = pi$Estimate
)