R/GRI.R

GRI <- function (o, p) {
  N(o, p)
  expr <- sqrt(mean(((p - o) / (p + o))^2))
  GRI <- (1 + expr) / (1 - expr)
  GRI
}

Try the qualV package in your browser

Any scripts or data that you put into this service are public.

qualV documentation built on July 9, 2023, 6:09 p.m.