Как я могу использовать два цикла for вместе (по одному на каждый год и по одному на каждый день)?

Думаю, я правильно рассчитал среднее расстояние между тремя последовательными значениями при выполнении условия (описанного в коде). Однако я сделал этот расчет только для одного года и не знаю, как сделать это для каждого года. Не могли бы вы мне помочь? Я думаю, мне нужен еще один цикл for, но когда я попробовал это, у меня ничего не получилось.

set.seed(123)  
years <- rep(2010:2014, each=365)
months <- rep(rep(1:12, each=31), 5)[1:(5*365)]  
days <- rep(1:31, times=5*12)[1:(5*365)]  

# Create a data frame with year, month, day, 
x <- rnorm(5*365, mean=15, sd=5)
df <- data.frame(Year=years, Month=months, Day=days, Values=x)
library(magrittr)
df_filt <- df %>% dplyr::filter(Year == 2010)

df_filt$Distance <- NA

for (i in 3:nrow(df_filt)) {
  if (df_filt$Values[i] > df_filt$Values[i - 1] && 
      df_filt$Values[i - 1] > df_filt$Values[i - 2]) {
    df_filt$Distance[i] <-
      (1/3)*(sqrt((df_filt$Values[i] - df_filt$Values[i - 2])^2) +
               sqrt((df_filt$Values[i] - df_filt$Values[i - 1])^2) +
               sqrt((df_filt$Values[i - 2] - df_filt$Values[i - 1])^2))
  } else {
    df_filt$Distance[i] <- NA
  }
}

df_filt$Distance2 <- NA

for (i in 3:nrow(df_filt)) {
  if (df_filt$Values[i] > df_filt$Values[i - 1] &&
      df_filt$Values[i - 1] < df_filt$Values[i - 2]) {
    df_filt$Distance[i] <- 
      (1/3)*(sqrt((df_filt$Values[i] - df_filt$Values[i - 2])^2) +
               sqrt((df_filt$Values[i] - df_filt$Values[i - 1])^2) +
               sqrt((df_filt$Values[i - 2] - df_filt$Values[i - 1])^2))
  } else {
    df_filt$Distance[i] <- NA
  }
}

sum <- colSums(df_filt[5:6], na.rm=TRUE)
print(sum)

final_sum <- sum(sum)
print(final_sum)