predict_varest.R

predict_varest <- function(model, newdata) {
  
  
  
  
}