R/fit.variogram.R

"fit.variogram" <-
  function (model = "exponential",v.object,nugget=0,sill=1000,range=1000,slope=1,...) 
{
  switch(model,
         exponential = fit.exponential(v.object,c0=nugget,ce=sill,ae=range,...),
         gaussian = fit.gaussian(v.object,c0=nugget,cg=sill,ag=range,...), 
         wave = fit.wave(v.object,c0=nugget,cw=sill,aw=range,...),
         linear = fit.linear(v.object,c0=nugget,cl=slope,...),
         spherical = fit.spherical(v.object,c0=nugget,cs=sill,as=range,...))
}

Try the sgeostat package in your browser

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

sgeostat documentation built on May 29, 2017, 9:04 a.m.