R/plot.tauFit.R

In tauProcess: Tau Measure with Right-Censored Data

#' Plot the Tau Process
#'
#' @description This function plot the estimated tau process obtained from `tau.fit`.
#' It can be used to monitor the progression of treatment effect.
#' @param x an object of class "tauFit", returned by `tau.fit` function
#' @param ... additional arguments passed to underlying plot method
#'
#' @return a list with components `x` and `y`.
#' @export
#'
#' @examples fit <- tau.fit(data = pbc)
#' plot(fit, type = "b")
plot.tauFit <- function(x, ...) {
  xx <- x$t
  yy <- x$tau

  plot(xx, yy,
       xlab = "time",
       ylab = "tau(t)",
       main = "tau process",
       ...)
}