export the pad0 function

NAMESPACE

@@ -9,6 +9,7 @@ export(InsuranceTarif)
 export(ProfitParticipation)
 export(exportInsuranceContract.xlsx)
 export(initializeCosts)
+export(pad0)
 import(MortalityTables)
 import(R6)
 import(abind)

R/HelperFunctions.R

@@ -141,6 +141,7 @@ correctionPaymentFrequency = function(m = 1, i = self$i, order = 0) {
   list(alpha=alpha, beta=beta);
 }
 
+#' @export
 pad0 = function(v, l, value=0) {
   if (l>=length(v)) {
     c(v, rep(value, l-length(v)))