Availability of R Script for WSAF(weighted spatial adaptive filter)

Hi.

 Does any one know whether R Script written for
WSAF(weighted spatial adaptive filter)(Gorr, W.L. and
Olligschlaeger, A.M. (1994). "Weighted Spatial Adaptive
Filtering: Monte Carlo Studies and Application to Illicit
Drug Market Modeling." Geographical Analysis, 26: 67-87.

), which enhances adaptive filtering's ability to
automatically identify and estimate parameters with
discontinuous or sharp gradient changes occurring over
space, is available or not?



 Regards.