Update savingsratescatter.R