Loop in r to calculate savings