R/vgau.R

Defines functions vgau

Documented in vgau

vgau <-
function(x,sill,range)
{
  if( range==0) return(rep(sill,length(x)))
  sill* (1 - exp(-3*(x/range)^2))
}

Try the ltsk package in your browser

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

ltsk documentation built on Sept. 3, 2023, 1:06 a.m.