## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## ----eval = FALSE-------------------------------------------------------------
# names(read.csv("my_station_daily.csv"))
# #> [1] "Date" "Max.Air.Temp..F." "Min.Air.Temp..F." ...

## ----eval = FALSE-------------------------------------------------------------
# library(TrackTrap)
# 
# trap_df <- data.frame(
#   date = as.Date(c("2024-04-01", "2024-04-08", "2024-04-15", "2024-04-22")),
#   trap_counts = c(0, 0, 3, 9)
# )
# 
# result <- calc_pest_phenology(
#   trap_df, pest = "OLFF",
#   weather_source = "cimis_csv",
#   cimis_csv_path = "my_station_daily.csv"
# )

## ----eval = FALSE-------------------------------------------------------------
# plot_phenology_trend(result)