dplyr script 1

start