Added script using dplyr chain syntax & doc