data-raw/raw_monthly_precip.R

### Read in Data

slo_climate_data <- read_csv("slo_climate_data.csv")

monthly_precip <- gather(slo_climate_data,
                         key = "month",
                         value = "precip", "OCT","NOV","DEC","JAN","FEB","MAR","APR","MAY","JUN","JUL","AUG","SEP") %>%
  filter(!is.na(precip))
jkmiller-wildlife/PrecipPackage documentation built on June 18, 2019, 1:34 p.m.