update focal.proportions.r