R/vpow.R

Defines functions vpow

vpow <-
function(x,sill,range)
{
  if( range==0) return(rep(sill,length(x)))
  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 June 23, 2024, 1:06 a.m.