R/seriesInfo.R

In detrendeR: A Graphical User Interface (GUI) to Visualize and Analyze Dendrochronological Data

seriesInfo <- function(rwl, print = TRUE) {
  yr.range <- function(x) {
    yr.vec <- as.numeric(names(x))
    mask <- !is.na(x)
    range(yr.vec[mask])
  }

  info.fun <- function(x) {
    out <- c(rep(NA, 3))
    out[1] <- yr.range(x)[1]
    out[2] <- yr.range(x)[2]
    out[3] <- out[2] - out[1] + 1
    return(out)
  }
  out <- t(apply(rwl, 2, info.fun))

  colnames(out) <- c("First", "Last", "Span")

  if (print) {
    cat(rep("=", 34), "\n", sep = "")
    WriteMatrix(
      out,
      na = "",
      sep = "|",
      ID = T,
      ID.name = "Seq",
      col.width = 6,
      row.name = "Series   "
    )
    cat(rep("=", 34), "\n", sep = "")
  } else {
    out <- cbind(rownames(out), out)
    out <- cbind(1:nrow(out), out)
    out <- rbind(c("ID", "Series", "First", "Last", "Span"), out)
    out[, 2] <- format(out[, 2], justify = "left", width = 10)
    for (i in 1:5) {
      out[, i] <- format(out[, i], justify = "right")
    }
    return(out)
  }
}