R/koyckDlm.default.R

In dLagM: Time Series Regression Models with Distributed Lag Models

#' @export
koyckDlm.default <-
  function(x , y , intercept = TRUE ){
    
    options(warn=-1)
    
    if ((is.vector(x)== FALSE) | (is.vector(y)== FALSE)){
      stop("Data series x and y both must be in a vector format!")
    }
  
    res <- koyckDlm.main(x = x , y = y , intercept = intercept)
    res$call <- match.call()
    class(res) <- c("koyckDlm" , "dLagM")
    res
    
  }