Is there an R function to alter the name columns in this script?

Question

Hello I am trying to generate a time series least square regression with multiple combinations with a set of variables incluiding their lags. I found this useful link:

<