R/summary.timedom.R

In freqdom: Frequency Domain Analysis for Multivariate Time Series

#' @S3method print timedom
print.timedom = function (x, ...) {
  dots <- list(...)
  operators = TRUE
  if ("operators" %in% names(dots))
    operators = dots$operators
  
  cat("Time domain object\n\n")
  if (operators)
    for (i in 1:length(x$lags)){
    cat(paste("$operators[",i,",,] (operator at the lag ",x$lags[i],")\n",sep=""))
    print(x$operators[i,,])
    cat("\n")
  }
  cat(paste("Dimentions:",paste(dim(x$operators)[-1],collapse=" x "),"\n"))
  cat(paste("\n$lags (available lags)\n",paste(x$lags,collapse=" "),"\n"))
}

#' @S3method print freqdom
print.freqdom = function (x, ...) {
  dots <- list(...)
  operators = TRUE
  if ("operators" %in% names(dots))
    operators = dots$operators
  
  cat("Frequency domain object\n\n")
  cat(paste("Operator dimentions:",paste(dim(x$operators)[-1],collapse=" x "),"\n"))
  cat(paste("\n$operators (matrices at each frequency)\n"))
  
  if (operators)
    for (i in 1:length(x$freq)){
    cat(paste("$operators[",i,",,] (operator at frequency ",x$freq[i],")\n",sep=""))
    print(signif(x$operators[i,,],4))
    cat("\n")
  }
  cat(paste("$freq (sample frequencies)\n"))
  print(signif(x$freq,4))
}

#' @S3method summary timedom
summary.timedom = function (object, ...) {
  print.timedom(object, FALSE)
}

#' @S3method summary freqdom
summary.freqdom = function (object, ...) {
  print.freqdom(object, FALSE)
}