valid_year_month(years = 1999:2001, months = c(1:3, 7))
# Mets in the World Series since the UNIX epoch
mets_ws <- c(1969, 1973, 1986, 2000, 2015)
valid_year_month(years = mets_ws, months = 10)
# Mets in the World Series during the Clinton administration
if (require(ggplot2)) {
clinton <- filter(presidential, name == "Clinton")
valid_year_month(years = mets_ws, months = 10,
begin = clinton$start, end = clinton$end)
}
Run the code above in your browser using DataLab