Added new R code for Wakefield SYmposium