Fix package dependencies, fix docs, fix contract example export

NAMESPACE

@@ -18,3 +18,4 @@ import(abind)
 import(lubridate)
 import(openxlsx)
 import(scales)
+import(stringr)

R/exportInsuranceContractExample.R

 #' @include showVmGlgExamples.R exportInsuranceContract_xlsx.R InsuranceContract.R
+#'
+#' @import stringr
 NULL
 
 #' Export the example calculations of an insurance contract

R/showVmGlgExamples.R

@@ -36,7 +36,7 @@ NULL
 #' @export
 showVmGlgExamples = function(contract, prf=10, t=10, t_prf=12, file="", ...) {
 
-    has.prf = prf <= contract$Parameters$ContractData$premiumPeriod;
+    has.prf = prf < contract$Parameters$ContractData$premiumPeriod;
 
     if (!("InsuranceContract" %in% class(contract))) {
         stop("First argument to function showVmGlgExamples need to be an InsuranceContract object! ",
@@ -100,8 +100,8 @@ showVmGlgExamples = function(contract, prf=10, t=10, t_prf=12, file="", ...) {
 
         ifelse(has.prf, sprintf("Rückkaufswert (Prf.) (t=%d):      %8.2f (VS: %.2f)",
                 t_prf,
-                contract.prf$Values$reserves[t + 1, "Surrender"],
-                contract.prf$Values$reserves[t + 1, "PremiumFreeSumInsured"]), ""),
+                contract.prf$Values$reserves[t_prf + 1, "Surrender"],
+                contract.prf$Values$reserves[t_prf + 1, "PremiumFreeSumInsured"]), ""),
         "",
 
         ifelse(has.prf, sprintf("Prämienfreie VS (t=%d):           %8.2f",

man/showVmGlgExamples.Rd

@@ -2,9 +2,7 @@
 % Please edit documentation in R/showVmGlgExamples.R
 \name{showVmGlgExamples}
 \alias{showVmGlgExamples}
-\title{Display the values of the example calculation of the given insurance contract
-as required by  the Austrian regulation (LV-VMGLV, "LV
-Versicherungsmathematische Grundlagen Verordnung").}
+\title{Display insurance contract calculation example}
 \usage{
 showVmGlgExamples(contract, prf = 10, t = 10, t_prf = 12, file = "",
   ...)
@@ -24,7 +22,7 @@ showVmGlgExamples(contract, prf = 10, t = 10, t_prf = 12, file = "",
 }
 \description{
 Display the values of the example calculation of the given insurance contract
-as required by  the Austrian regulation (LV-VMGLV, "LV
+as required by the Austrian regulation (LV-VMGLV, "LV
 Versicherungsmathematische Grundlagen Verordnung").
 }
 \examples{