TwoSampleTTE: Functions to Support the Two Sample Time to Event Scenario

In lylyf1987/GNGpkg:

Description

make.tte.ppp: Make Two Sample Time to Event Prior/Posterior Plot. Returns a ggplot object.

make.tte.spp: Make Two Sample Time to Event Shaded Posterior Plot. Returns a graphic built using grid.arrange.

get.tte.trt.oc.df: Get Two Sample Time to Event Treatment Effect OC. Returns a data.frame.

make.tte.trt.oc1: Make Two Sample Time to Event Treatment Effect. Returns a graphic built using grid.arrange.

make.tte.trt.oc2: Make Two Sample Time to Event Treatment Effect. Returns a graphic built using grid.arrange.

get.tte.ssize.oc.df: Get Two Sample Time to Event sample size OC data.frame. Returns a data.frame.

make.tte.ssize.oc: Make Two Sample Time to Event Sample size OC plot

Usage

make.tte.ppp(
  m.con.prior = 10,
  m.trt.prior = 10,
  HR.prior = 0.8,
  ARatio = 1,
  HR.obs = 0.75,
  m.obs = 50
)

make.tte.spp(
  m.con.prior = 10,
  m.trt.prior = 10,
  HR.prior = 1.1,
  ARatio = 1,
  HR.obs = 0.89,
  m.obs = 50,
  HR.tv = 1.3,
  HR.lrv = 1.1,
  tau.tv = 0.1,
  tau.lrv = 0.8,
  tau.ng = 0.65,
  tsize = 4,
  nlines = 25,
  nlines.ria = 20
)

get.tte.post.param(
  m.con.prior = 10,
  m.trt.prior = 10,
  HR.prior = 0.7,
  ARatio = 1,
  HR.obs = 0.8,
  m.obs = 50
)

get.tte.df(
  m.con.prior = 50,
  m.trt.prior = 50,
  HR.prior = 0.845,
  HR.obs = seq(0.3, 1, 0.01),
  m.obs = seq(10, 200, 5),
  ARatio = 0.5,
  HR.tv = 0.8,
  HR.lrv = 0.9,
  tau.tv = 0.1,
  tau.lrv = 0.2,
  tau.ng = 0.35
)

get.tte.trt.oc.df(
  m.con.prior = 10,
  m.trt.prior = 10,
  HR.prior = 0.8,
  ARatio = 0.5,
  m.obs = 50,
  HR.tv = 1.3,
  HR.lrv = 1.1,
  HR.lower = 0.3,
  HR.upper = 2,
  tau.tv = 0.1,
  tau.lrv = 0.8,
  tau.ng = 0.65
)

make.tte.trt.oc1(plot.df = get.tte.trt.oc.df(), nlines = 25, tsize = 4)

make.tte.trt.oc2(plot.df = get.tte.trt.oc.df(), nlines = 25, tsize = 4)

get.tte.ssize.oc.df(
  m.con.prior = 10,
  m.trt.prior = 10,
  HR.prior = 0.75,
  ARatio = 1,
  m.obs = 50,
  m.lower = 40,
  m.upper = 120,
  HR.lrv = 1.1,
  HR.tv = 1.4,
  HR.user = 0.845,
  tau.tv = 0.1,
  tau.lrv = 0.8,
  tau.ng = 0.65
)

make.tte.ssize.oc(
  for.plot = get.tte.ssize.oc.df(HR.lrv = 1.1, HR.tv = 1.4),
  tsize = 4,
  nlines = 25
)

Arguments

m.con.prior	prior number of control events
m.trt.prior	prior number of treatment events
HR.prior	prior estimate for HR
ARatio	Allocation ratio
HR.obs	observed hazard ratio
m.obs	observed number of events
HR.tv	TPP Target Value aka Base TPP
HR.lrv	TPP Lower Reference Value aka Max TPP (large HRs lead to No-Go)
tau.tv	threshold associated with Base TPP
tau.lrv	threshold associated with Min TPP
tau.ng	threshold associated with No-Go
tsize	Control for text size
nlines	Control for text spacing
nlines.ria	Control for text spacing
for.plot	data.frame returned by get.ts.ng.trt.oc.df
seed	random seed

Examples

## Not run: 
make.ts.ng.ppp()
get.tte.post.param()
make.ts.ng.spp()
get.tte.trt.oc.df()
make.tte.trt.oc1()
make.tte.trt.oc2()
get.tte.ssize.oc.df()
make.tte.ssize.oc()

## End(Not run)

lylyf1987/GNGpkg documentation built on May 19, 2020, 12:07 a.m.