This is an R package to implement the semi-parametric estimation method for the Cox model introduced in the paper

This package can be installed from github with the help of `devtools`

:

```
# install.packages("devtools")
devtools::install_github("942kid/plac")
```

The main wrapper function `PLAC()`

calls the appropriate working function according to the covariate types in the dataset. For example,

```
library(plac)
# When only time-invariant covariates are involved
dat1 = sim.ltrc(n = 50)$dat
PLAC(ltrc.formula = Surv(As, Ys, Ds) ~ Z1 + Z2,
ltrc.data = dat1, td.type = "none")
# When there is a time-dependent covariate that is independent of the truncation time
dat2 = sim.ltrc(n = 50, time.dep = TRUE,
distr.A = "binomial", p.A = 0.8, Cmax = 5)$dat
PLAC(ltrc.formula = Surv(As, Ys, Ds) ~ Z,
ltrc.data = dat2, td.type = "independent",
td.var = "Zv", t.jump = "zeta")
# When there is a time-dependent covariate that depends on the truncation time
dat3 = sim.ltrc(n = 50, time.dep = TRUE, Zv.depA = TRUE, Cmax = 5)$dat
PLAC(ltrc.formula = Surv(As, Ys, Ds) ~ Z,
ltrc.data = dat3, td.type = "post-trunc",
td.var = "Zv", t.jump = "zeta")
```

For more details on the arguments of the function, please run

`help(PLAC)`