From 98805e1dc56219f0285f18b51be54c2e306d6445 Mon Sep 17 00:00:00 2001
From: Bill Denney <wdenney@humanpredictions.com>
Date: Mon, 19 Aug 2024 14:51:19 -0400
Subject: [PATCH] Remove unused `maxpts` argument

---
 R/profile.R                   | 10 ++--------
 man/profile.nlmixr2FitCore.Rd |  5 -----
 2 files changed, 2 insertions(+), 13 deletions(-)

diff --git a/R/profile.R b/R/profile.R
index dd19c11..9dab5e1 100644
--- a/R/profile.R
+++ b/R/profile.R
@@ -8,9 +8,6 @@
 #' @param ... ignored
 #' @param which The parameter names to perform likelihood profiling on
 #'   (`NULL` indicates all parameters)
-#' @param maxpts The maximum number of fits to perform in each direction (higher
-#'   or lower values) for each parameter.  The total maximum number of estimates
-#'   that may be performed is `maxpts*2*length(which)`.
 #' @param ofvIncrease The targetted change in objective function value (3.84
 #'   corresponds to a Chi-squared test with a 95% confidence interval)
 #' @param normQuantile The quantile of a normal distribution to use for the
@@ -36,7 +33,7 @@
 #' @family Profiling
 #' @export
 profile.nlmixr2FitCore <- function(fitted, ...,
-                                   which = NULL, maxpts = 10,
+                                   which = NULL,
                                    ofvIncrease = qchisq(0.95, df = 1),
                                    normQuantile = qnorm(p = 0.975),
                                    rseTheta,
@@ -58,7 +55,6 @@ profile.nlmixr2FitCore <- function(fitted, ...,
   # setOfv(currentFit, fittedOfvType)
   # logLik(currentFit)
 
-  checkmate::assert_integerish(maxpts, lower = 1, any.missing = FALSE, len = 1)
   checkmate::assert_number(ofvIncrease, lower = 0, finite = TRUE, null.ok = FALSE, na.ok = FALSE)
   checkmate::assert_integerish(paramDigits, lower = 1, upper = 10, any.missing = FALSE, len = 1, null.ok = FALSE, coerce = TRUE)
   if (missing(rseTheta)) {
@@ -92,12 +88,10 @@ profile.nlmixr2FitCore <- function(fitted, ...,
             fitted = fitted,
             ...,
             which = currentWhich,
-            maxpts = maxpts,
             ofvIncrease = ofvIncrease,
             normQuantile = normQuantile,
             rseTheta = rseTheta,
-            ofvtol = ofvtol,
-            optimControl = optimControl
+            ofvtol = ofvtol
           )
         )
     }
diff --git a/man/profile.nlmixr2FitCore.Rd b/man/profile.nlmixr2FitCore.Rd
index ba43e14..2284d44 100644
--- a/man/profile.nlmixr2FitCore.Rd
+++ b/man/profile.nlmixr2FitCore.Rd
@@ -8,7 +8,6 @@
   fitted,
   ...,
   which = NULL,
-  maxpts = 10,
   ofvIncrease = qchisq(0.95, df = 1),
   normQuantile = qnorm(p = 0.975),
   rseTheta,
@@ -25,10 +24,6 @@
 \item{which}{The parameter names to perform likelihood profiling on
 (\code{NULL} indicates all parameters)}
 
-\item{maxpts}{The maximum number of fits to perform in each direction (higher
-or lower values) for each parameter.  The total maximum number of estimates
-that may be performed is \code{maxpts*2*length(which)}.}
-
 \item{ofvIncrease}{The targetted change in objective function value (3.84
 corresponds to a Chi-squared test with a 95\% confidence interval)}