## ----setup, echo = FALSE, message=FALSE---------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
library(knitr)
library(kableExtra)
library(LifeInsureR)
library(dplyr)
library(tibble)
library(lubridate)

library(pander)

## ----CalculatePortfolio,echo=TRUE,eval=FALSE----------------------------------
#  results = NULL;
#  results = calculate_portfolio(bestandinfos.all,
#      tarif = c("ProdName1", "ProdName2"), GV = c("123"), debug =TRUE)
#  openxlsx::write.xlsx(results, outfile("Prods-1-2"),
#      asTable = TRUE, overwrite = TRUE, sheetName = "Vergleichsrechnung")
#  openXL(outfile("Prods-1-2"))