R/getTrw.R

Defines functions getTrw

getTrw <- function(x) {
  out <- x[[1]]$trw[, 1, drop = FALSE]
  for (i in 2:length(x)) {
    if (nrow(x[[i]]$trw) > 2) {
      out <- mergeRwl(x = out, y = x[[i]]$trw[, 1, drop = FALSE])
    }
  }
  out
}

Try the xRing package in your browser

Any scripts or data that you put into this service are public.

xRing documentation built on April 22, 2022, 5:05 p.m.