corr_w_scatter: Add R code to simulate relevant data