data = data[-(nl + ij), ] #suppression de cette série dans data (????)
varexp = varexp[-(nl + ij), ] #idem dans les variables exogènes (date 16/03/2015 + 6 jours
indNA = attr(na.omit(data[, 1:48]),"na.action")
data = data[-(nl + ij), ] #suppression de cette série dans data (????)
varexp = varexp[-(nl + ij), ] #idem dans les variables exogènes (date 16/03/2015 + 6 jours
indNA = attr(na.omit(data[, 1:48]),"na.action")