MAE_TPD(x, y)

Mean absolute error between two TPD probability distributions.

functional diversitystatistics

Args:x — first TPDy — second TPD

MAE_TPD <- function(x, y) {
  diffXY <- abs(x - y)
  MAE <- mean(diffXY)
  return(MAE)
}