> do <- as.Date("2020-12-31")
> #definisti datum do
> dd <- as.Date("2021-03-31")
> #definisati sekvencu dana
> d <- seq(do, dd, by = "days")
> head(d, 10)
[1] "2020-12-31" "2021-01-01" "2021-01-02" "2021-01-03" "2021-01-04" "2021-01-05" "2021-01-06" "2021-01-07"
[9] "2021-01-08" "2021-01-09"
> #selektovati samo februar 2021
> d[format(d, format = "%Y-%m")%in%"2021-02"]
[1] "2021-02-01" "2021-02-02" "2021-02-03" "2021-02-04" "2021-02-05" "2021-02-06" "2021-02-07" "2021-02-08"
[9] "2021-02-09" "2021-02-10" "2021-02-11" "2021-02-12" "2021-02-13" "2021-02-14" "2021-02-15" "2021-02-16"
[17] "2021-02-17" "2021-02-18" "2021-02-19" "2021-02-20" "2021-02-21" "2021-02-22" "2021-02-23" "2021-02-24"
[25] "2021-02-25" "2021-02-26" "2021-02-27" "2021-02-28"
