R/gaussian_cova_rgeos.R

In tleblevecIMP/TransPGS: Study the indicator transiograms obtained from multi-gaussian integrals

#' creating a gaussian variogram model from rgeostat
#'

gaussian_cova_rgeos<-function(r,a){
  model<-model.create(ndim=2,nvar=1,vartype=4,aniso.coeffs=c(1,a),range=sqrt(3)*r)
  return(model)
}