R/Sfun1.R

Defines functions Sfun1

Sfun1 <- function(z, c) {
  value <- max((1 - c / abs(z)), 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.