From aae43e30720fe0f4b1ea2fd2a92cd25637cef2eb Mon Sep 17 00:00:00 2001 From: Maximilian Muecke Date: Thu, 23 Jul 2026 17:20:32 +0200 Subject: [PATCH 1/4] Fix typos in R sources --- R/affine.R | 2 +- R/arrays.R | 2 +- R/bermudan.R | 2 +- R/datasets.R | 2 +- R/discount.R | 2 +- 5 files changed, 5 insertions(+), 5 deletions(-) diff --git a/R/affine.R b/R/affine.R index 3426f29f..6c100275 100644 --- a/R/affine.R +++ b/R/affine.R @@ -94,7 +94,7 @@ AffineSwaption.default <- function(params, # remove if search was out of bounds expiry=expiry[expiry>0];tenor=tenor[tenor>0];vol=vol[vol>0] if(length(expiry)<5){ - warning("Insufficent vols to fit affine model") + warning("Insufficient vols to fit affine model") return(NULL) } #Take 1st 5 which includes closest to initial date diff --git a/R/arrays.R b/R/arrays.R index e6028a93..78bf5b33 100644 --- a/R/arrays.R +++ b/R/arrays.R @@ -179,4 +179,4 @@ plotOptionSurface <- function(EOres, ylabel="", xlabel="", zlabel="", fov=60) { } } -utils::globalVariables(c("clear3d", "bg3d", "ligh3d", "view3d", "surface3d", "text3d")) +utils::globalVariables(c("clear3d", "bg3d", "light3d", "view3d", "surface3d", "text3d")) diff --git a/R/bermudan.R b/R/bermudan.R index fc813099..ef6b272c 100644 --- a/R/bermudan.R +++ b/R/bermudan.R @@ -76,7 +76,7 @@ BermudanSwaption.default <- function(params, ts, swaptionMaturities, # remove if search was out of bounds expiry=expiry[expiry>0];tenor=tenor[tenor>0];vol=vol[vol>0] if(length(expiry)<5){ - warning("Insufficent vols to fit affine model") + warning("Insufficient vols to fit affine model") return(NULL) } #Take 1st 5 which includes closest to initial date diff --git a/R/datasets.R b/R/datasets.R index 080cbb42..4e561fd5 100644 --- a/R/datasets.R +++ b/R/datasets.R @@ -16,6 +16,6 @@ NULL #' #' @name tsQuotes #' @docType data -#' @format A series of tenors and rates approppriate for calling DiscountCurve +#' @format A series of tenors and rates appropriate for calling DiscountCurve #' @source TBA NULL diff --git a/R/discount.R b/R/discount.R index c63617be..2ffec323 100644 --- a/R/discount.R +++ b/R/discount.R @@ -48,7 +48,7 @@ DiscountCurve.default <- function(params, tsQuotes, times=seq(0,10,.1), ## Check the times vector if (!is.numeric(times) || length(times) == 0) { - stop("The times parameter must be a non-emptry numeric vector", call.=FALSE) + stop("The times parameter must be a non-empty numeric vector", call.=FALSE) } ## Finally ready to make the call... From cdbd969f8334ae7a66b18bac999ece8d0a43f79d Mon Sep 17 00:00:00 2001 From: Maximilian Muecke Date: Thu, 23 Jul 2026 17:34:21 +0200 Subject: [PATCH 2/4] Fix typo in error message in src/utils.cpp --- src/utils.cpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/utils.cpp b/src/utils.cpp index 2b9257c0..41a7eb4b 100644 --- a/src/utils.cpp +++ b/src/utils.cpp @@ -687,7 +687,7 @@ QuantLib::Date getFutureDate(const QuantLib::Date today, return QuantLib::Date{today + length}; #endif } else { - Rcpp::stop("Excactly one of 'maturity' or 'exDate' needs to be supplied and be non-null."); + Rcpp::stop("Exactly one of 'maturity' or 'exDate' needs to be supplied and be non-null."); return QuantLib::Date(); // not reached } } From c573021d29be664f2a11a8fee6adf84c7f939ea0 Mon Sep 17 00:00:00 2001 From: Maximilian Muecke Date: Thu, 23 Jul 2026 17:40:11 +0200 Subject: [PATCH 3/4] Add ChangeLog entry --- ChangeLog | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/ChangeLog b/ChangeLog index 7176a891..d38f9abc 100644 --- a/ChangeLog +++ b/ChangeLog @@ -16,6 +16,11 @@ * man/Schedule.Rd: Idem * man/ZeroCouponBond.Rd: Idem * man/tsQuotes.Rd: Idem + * R/affine.R: Correct typo in a warning message + * R/bermudan.R: Idem + * R/discount.R: Correct typo in an error message + * src/utils.cpp: Idem + * R/datasets.R: Correct typo in documentation 2026-07-22 Maximilian Muecke From bdeff44242e26bca99e2773feeb570f7f569430a Mon Sep 17 00:00:00 2001 From: Maximilian Muecke Date: Fri, 24 Jul 2026 14:28:07 +0200 Subject: [PATCH 4/4] Remove obsolete global variable declarations --- ChangeLog | 5 +++++ R/arrays.R | 2 -- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index d38f9abc..c74a083c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2026-07-24 Maximilian Muecke + + * R/arrays.R (plotOptionSurface): Remove obsolete global variable + declarations + 2026-07-23 Maximilian Muecke * man/AffineSwaption.Rd: Correct several typos diff --git a/R/arrays.R b/R/arrays.R index 78bf5b33..94f7478d 100644 --- a/R/arrays.R +++ b/R/arrays.R @@ -178,5 +178,3 @@ plotOptionSurface <- function(EOres, ylabel="", xlabel="", zlabel="", fov=60) { message("Please install the 'rgl' package before using this function.") } } - -utils::globalVariables(c("clear3d", "bg3d", "light3d", "view3d", "surface3d", "text3d"))