OptimalSurrogate (version 1.0)

pte_disc: PTE estimation with a discrete surrogate marker

Description

PTE estimation with discrete surrogate marker

Usage

pte_disc(sob, yob, aob, var = TRUE, conf.int = TRUE, rep = 500)

Value

Estimates

Estimates of the treatment effect on the priamry outcome, delta, the treatment effect on the transformation of the surrogate, delta.gs, two versions of the proportion of treatment effect explained by the surrogate, pte1 and pte2; if var = TRUE, standard error estimates are also provided (se); if conf.int = TRUE, 95% confidence intervals are also provided

Transformed.S

the transformed surrogate, g(s), for each value of the surrogate, s; if var = TRUE, standard error estimates are also provided (se); if conf.int = TRUE, 95% confidence intervals are also provided

Arguments

sob

DISCRETE surrogate marker

yob

outcome of interest (continuous or binary)

aob

treatment assignment (1: treatment; 0: control)

var

whether variance should be calculated (TRUE/FALSE)

conf.int

whether 95% confidence intervals should be calculated (TRUE/FALSE)

rep

number of resampling replications (default is 500)

Examples

data(marker_disc)
out <- pte_disc(
  sob = marker_disc$sob, 
  yob = marker_disc$yob, 
  aob = marker_disc$aob, var = FALSE, conf.int = FALSE)
out
# \donttest{
out <- pte_disc(
  sob = marker_disc$sob, 
  yob = marker_disc$yob, 
  aob = marker_disc$aob, 
  var = TRUE, conf.int = TRUE, rep = 1000)
out
# }