R/format.R

In rxode2et: Event Table Functions for 'rxode2'

Defines functions format.rxRateDur format.rxEvid

Documented in format.rxEvid format.rxRateDur

#' @rdname rxEvid
#' @export
format.rxEvid <- function(x, ...) {
  .x <- unclass(x)
  format(as.character.rxEvid(.x), align = "left", width = 12)
}

#' @rdname rxEvid
#' @export
format.rxRateDur <- function(x, ...) {
  .x <- unclass(x)
  format(as.character.rxRateDur(.x), align = "left")
}

Try the rxode2et package in your browser