## ----include = FALSE,echo = FALSE---------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>")

options(rmarkdown.html_vignette.check_title = FALSE)


## ----expertsurv-1, echo = FALSE, fig.cap = "Upload data and generate Kaplan-Meier plot", out.width="100%"----
knitr::include_graphics(system.file("image/ShinyExpertSurv-1.png", package = 'expertsurv'))


## ----expertsurv-2, echo = FALSE, fig.cap = "Expert beliefs about survival at 20 months", out.width="50%"----
knitr::include_graphics(system.file("image/ShinyExpertSurv-2.png", package = 'expertsurv'))


## ----expertsurv-3, echo = FALSE, fig.cap = "Running statistical analysis", out.width="100%"----
knitr::include_graphics(system.file("image/ShinyExpertSurv-3.png", package = 'expertsurv'))


## ----expertsurv-4, echo = FALSE, fig.cap = "Results generated from the Markdown file", out.width="75%"----
knitr::include_graphics(system.file("image/ShinyExpertSurv-4.png", package = 'expertsurv'))