add an iris example for gather(), base R and dplyr