R/delta_germ.R

'delta_germ' <- function(zz)
{
  return(invisible(mean(pmin((zz - 0)^2, (zz - 0.5)^2, (zz - 1.0)^2), na.rm = T)))
}
ndbrown6/MSK-GRAIL-TECHVAL documentation built on March 29, 2020, 4:41 p.m.