R/Sfun.R

Defines functions Sfun

Sfun <- function(z,c) {
  znorm <- sqrt(sum(z^2))
  value <- max((1-c/znorm),0)*z
  return (value)
}

Try the GEInfo package in your browser

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

GEInfo documentation built on Jan. 11, 2022, 1:07 a.m.