---
title: "Likelihood ratio test using the anova.yppe() function"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Likelihood ratio test using the anova.yppe() function}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
```

```{r setup}
library(YPPE)
data(gastric)

ph <- phpe(Surv(time, status)~trt, data = gastric, n_int = 10, init = 0)
po <- pope(Surv(time, status)~trt, data = gastric, n_int = 10, init = 0)
yp <- yppe(Surv(time, status)~trt, data = gastric, n_int = 10, init = 0)
anova(ph, po, yp)
AIC(ph, po, yp)
```






