Adding what R code I've run that I understand.