R/spherical.r

spherical = function(d, bw) {
    ifelse(d<bw, 1 - 1.5*(d/bw) + 0.5*(d/bw)**3, 0)
}
wrbrooks/gwselect documentation built on May 4, 2019, 11:59 a.m.