if (FALSE) {
x <- specifyModel(Next(OpCl(DIA)) ~ OpCl(VIX))
x.lm <- buildModel(x,method='lm',training.per=c('2001-01-01','2001-04-01'))
fittedModel(x.lm)
coef(fittedModel(x.lm))
coef(x.lm) # same
vcov(fittedModel(x.lm))
vcov(x.lm) # same
}
Run the code above in your browser using DataLab