I have the following data.frame and would like to replace values of Flow to -1 for the year 2001. Any help would be appreciated.
library(lubridate)
library(tidyverse)
set.seed(123)
DF <- data.frame(Date = seq(as.Date("2001-01-01"), to = as.Date("2005-12-31"), by = "day"),
Flow = runif(1826,1,5))