Almost done: need to add a break point and fix the df$add