R code for showing difference on new baseline