## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(AURMC)

## -----------------------------------------------------------------------------
data <- data.frame(
  idx = c(1, 1, 1, 1, 1, 1),
  time = c(0, 1, 2, 3, 4, 5),
  status = c(1, 1, 1, 1, 1, 0),
  value = c(5, 4, 3, 2, 1, 0)
)
show(data)

## -----------------------------------------------------------------------------
tab <- AURMC::TabRMC(data)
show(tab)

## -----------------------------------------------------------------------------
# Left sum.
left <- AURMC::AURMC(data, int_method = "left")
cat("Left sum:\n")
show(left)

# Right sum.
right <- AURMC::AURMC(data, int_method = "right")
cat("Right sum:\n")
show(right)

# Trapezoidal sum.
trapezoid <- AURMC::AURMC(data, int_method = "trapezoid")
cat("Trapezoidal sum:\n")
show(trapezoid)