R/fitted.GNARfit.R

In nunesmatt/GNAR: Methods for Fitting Network Time Series Models

fitted.GNARfit <- function(object,...){
  stopifnot(is.GNARfit(object))
  dotarg <- list(...)
  if(length(dotarg)!=0){
    if(!is.null(names(dotarg))){
      warning("... not used here, input(s) ", paste(names(dotarg), collapse=", "), " ignored")
    }else{
      warning("... not used here, input(s) ", paste(dotarg, collapse=", "), " ignored")
    }
  }
  return(residToMat(object, nnodes=object$frbic$nnodes)$fit)
}