Как согласовать модель ARIMA с данными неполных лет в R?

Question

Как я могу подогнать модель ARIMA к следующим отфильтрованным данным year/month Flow? которая соответствует модели, используя данные January to July 10 за выбранные годы (ie., 2012,2015,2017,2020), а затем используйте подобранную модель для forecast 11 июля - 31 августа.

library(forecast)
library(tidyverse)
library(dplyr)

set.seed(1500)
FakeData <- data.frame(Date = seq(as.Date("2010-01-01"),to = as.Date("2020-07-10"), by = "day"),
                 Flow = runif(length(Date), 25, 75)) %>%
  mutate( Year = year(Date), Month = month(Date), Day = day(Date)) %>%
  filter(Year %in% c(2012,2015,2017,2020)) %>% 
  filter(between(Month, 1,7)) %>% 
  filter(!c(Month == 07 & Day >= 11))

#convert to Timeseries data
TsData <- ts(FakeData$Flow) # how to provide start and end date that only goes to up to July 10 of the filtered year?

# find the best ARIMA model
AA <- auto.arima(TsData)

# fit and forecast with the model
ModelFit <- forecast(AA, h = 51) # I want to forecast for July 11 to August 31 of 2020