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

## ---- complete-cases, fig.cap = "Algorithm 1", echo = FALSE-------------------
knitr::include_graphics("algorithm_1.PNG")

## ---- available-cases, fig.cap = "Algorithm 2", echo = FALSE------------------
knitr::include_graphics("algorithm_2.PNG")

## ---- findallsuitableobservations, fig.cap = "Algorithm 3", echo = FALSE------
knitr::include_graphics("algorithm_3.PNG")