ivanek

library(shiny)
library(survival)
library(ggplot2)

## extension to geom_ribbon (from https://groups.google.com/forum/?fromgroups=#!topic/ggplot2/9cFWHaH1CPs)
stairstepn <- function(data, direction="hv", yvars="y") {
    direction <- match.arg( direction, c( "hv", "vh" ) )
    data <- as.data.frame( data )[ order( data$x ), ]
    n <- nrow( data )

ivanek

---
title: "kableExtra short.caption issue in bookdown"
output:
  bookdown::pdf_book:
    keep_tex: yes
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```