R/gaussian_cov.R

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

#' functions that compute the value of the gaussian covariance for a distance  
#' we use the non-centered covariance

gaussian_cov<-function(r1,distance){
  return (exp(-(distance/r1)^2))
}