added dplyr sample code