Calculate SPEARpesticide in R