get_cut_date_by_event: Get Date at Which an Event Count is Reached

In keaven/simtrial: Clinical Trial Simulation

Get Date at Which an Event Count is Reached

Description

Get Date at Which an Event Count is Reached

Usage

get_cut_date_by_event(x, count)

Arguments

x	a time-to-event dataset, e.g., generated by sim_pw_surv
count	event count at which dataset is to be cut off for analysis

Value

The a numeric value with the cte from the input dataset at which the targeted event count is reached, or if the final event count is never reached, the final cte at which an event occurs.

Examples

library(dplyr)
library(tibble)

# Use default enrollment and calendar cut date for 50 events in Positive stratum
x <- sim_pw_surv(
  n = 200,
  strata = tibble(Stratum = c("Positive", "Negative"),
                  p = c(.5, .5)),
  fail_rate = tibble(Stratum = rep(c("Positive","Negative"), 2),
                     period = rep(1, 4),
                     Treatment = c(rep("Control", 2), rep("Experimental", 2)),
                     duration = rep(1, 4),
                     rate = log(2) / c(6, 9, 9, 12)),
  dropoutRates = tibble(Stratum = rep(c("Positive", "Negative"),2),
                        period = rep(1, 4),
                        Treatment = c(rep("Control", 2), rep("Experimental", 2)),
                        duration = rep(1, 4),
                        rate = rep(.001, 4)))

d <- get_cut_date_by_event(x %>% filter(Stratum == "Positive"), count = 50)

y <- cut_data_by_date(x, cut_date = d)
table(y$Stratum, y$event)

keaven/simtrial documentation built on April 17, 2023, 4:03 a.m.