as.AnisotropyScaling function

Convert to anisotropy scaling matrix