R/nobs.GNARfit.R

In GNAR: Methods for Fitting Network Time Series Models

nobs.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(object$frbic$time.in)
}