search

kamapu / vegtable

Handling vegetation-plot data sets
http://kamapu.github.io/vegtable/
7 stars 0 forks source link

Error in weight mean using 'trait_stats()' #34

Closed kamapu closed 1 year ago

kamapu commented 1 year ago

Following code is giving an error in version 0.1.8.9001:

wme <- function(x, w)
  mean(x*w, na.rm = TRUE)/
      sum(w, na.rm = TRUE)

releves <- trait_stats(
    object = releves,
    FUN = wme, trait = "ind_n",
    head_var = "ReleveID",
    weight = "cover_percentage",
    suffix = "_wme",
    in_header = TRUE)

The error message is:

Error in (function (x, w)  : unused argument (na.rm = dots[[3]][[1]])