Rolling stepwise regression with dplyr

Question

I want to make an rolling stepwise regression with dplyr, do() and rollapply(). My code for the data looks like this:

    FUND_DATA <- tibble(
  DATE = 1:1