Issue with average_forecast

[Shaoni1334]

average_forecast seems to have an issue with the scope of the variables in the function. The error message in the following code

`rm(list=ls())
library(midasr)
md2<-function(Data){
x<-Data$x
y<-Data$y
l=2
mod<-midas_r(y ~ mls(x,l:(l+2),3), start=NULL)
avgf<-average_forecast(list(mod),
data=list(x=x,y=y),
insample = 1:200,
outsample = 201:300,
measures = "MSE",
show_progress = F)
}

Data<-list(x=rnorm(900), y=rnorm(300))
md2(Data)
`

[vzemlys]

Yeah, this is an issue, which is a bit tricky to fix. Will have a look someday.