R/vpown.R

Defines functions vpown

Documented in vpown

vpown <-
function(x,sill,range,nugget)
{
  if( range==0) return(rep(sill+nugget,length(x)))
 nugget+ sill * x^range
}

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.