my.ds.new <- my.ds %>% mutate(response = ifelse(c(0, abs(diff(response))) > abs(response * .1) &
lag(area) == area,
lag(response),
response))