Bug geometric_mean function

[juan-umana]

Please place an "x" in all the boxes that apply

• [ X] I have the most recent version of epiCo and R
• [ X] I have found a bug
• I have a reproducible example
• I want to request a new feature

---

Please include a brief description of the problem with a code example:

The geometric_mean function is not subsetting the positive values from the vector, so when it checks the values inside it arise an error instead of ignoring the non positive values

  if (method == "positive") {
    stopifnot("`x` includes zero or negative values,
              check the geom_mean methods" = all(x > 0))

    gm <- exp(mean(log(x)))

---