From a4437840eb8daa01e1895d3a7056b201643486bd Mon Sep 17 00:00:00 2001 From: Markus Gesmann Date: Tue, 27 Jun 2023 10:42:35 +0100 Subject: [PATCH] Changed function names to comply with new CRAN checks --- R/MackChainLadderFunctions.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/R/MackChainLadderFunctions.R b/R/MackChainLadderFunctions.R index fae8f66b..6609ba88 100755 --- a/R/MackChainLadderFunctions.R +++ b/R/MackChainLadderFunctions.R @@ -80,11 +80,11 @@ MackChainLadder <- function( # Then finally, ... if (tail.factor > 1) { ## EXPECTED VALUES - FullTriangle <- tail.E(FullTriangle, tail.factor) + FullTriangle <- tail_E(FullTriangle, tail.factor) ## STANDARD ERRORS ## Estimate the standard error of f and F in the tail ## If tail.se and/or tail.sigma provided, return those values - StdErr <- tail.SE(FullTriangle, StdErr, Total.SE, tail.factor, + StdErr <- tail_SE(FullTriangle, StdErr, Total.SE, tail.factor, tail.se = tail.se, tail.sigma = tail.sigma, alpha = alpha) } @@ -319,7 +319,7 @@ estimate.sigma <- function(sigma){ ######################################################################## ## Estimate expected value when tail -tail.E <- function(FullTriangle, tail.factor){ +tail_E <- function(FullTriangle, tail.factor){ n <- ncol(FullTriangle) m <- nrow(FullTriangle) @@ -332,7 +332,7 @@ tail.E <- function(FullTriangle, tail.factor){ ######################################################################## ## Estimate standard error for tail -tail.SE <- function(FullTriangle, StdErr, Total.SE, tail.factor, +tail_SE <- function(FullTriangle, StdErr, Total.SE, tail.factor, tail.se = NULL, tail.sigma = NULL, alpha) { n <- ncol(FullTriangle) m <- nrow(FullTriangle)