require(dplyr); require(tidyr); require(lubridate)
ts_dat <- make_whole(sst_WA)
clim_start <- "1983-01-01"
clim_end <- "2012-12-31"
ts_dat %>%
filter(date >= clim_start & date <= clim_end) %>%
mutate(date = year(date)) %>%
spread(date, temp) %>%
filter(doy >= 55 & doy <= 65)
Run the code above in your browser using DataLab