Added example data and R code from Jung-In