R/vmte.R

In ltsk: Local Time Space Kriging

Defines functions vmte

Documented in vmte

vmte <-
function(x,sill,range)
{
  if( range==0) return(rep(sill,length(x)))
  xt <- 4.5 * (x / range)
  sill *(1-(1+ xt)*exp(-xt))
}

Try the ltsk package in your browser