From a067169fbca82ca51abc668a58b748a51620eb0d Mon Sep 17 00:00:00 2001
From: kellijohnson-NOAA <kelli.johnson@noaa.gov>
Date: Thu, 1 Dec 2022 12:51:28 -0800
Subject: [PATCH] Clean up forgotten links to nwfscAgeingError

---
 DESCRIPTION     | 3 +--
 R/checkLenAge.R | 2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 20a2ebd..77ada6b 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -50,8 +50,7 @@ Suggests:
     testthat,
     usethis
 Remotes:
-  github::nwfsc-assess/nwfscSurvey,
-  github::nwfsc-assess/nwfscAgeingError
+  github::nwfsc-assess/nwfscSurvey
 VignetteBuilder: knitr
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.2.2
diff --git a/R/checkLenAge.R b/R/checkLenAge.R
index f7cba6f..fd9e3e0 100644
--- a/R/checkLenAge.R
+++ b/R/checkLenAge.R
@@ -151,7 +151,7 @@ checkLenAge <- function(Pdata,
       !is.na(Pdata[, age_col]), ]
     estsall <- data.frame(Sex = sex_vec,
       do.call("rbind", tapply(seq(NROW(tempdata)), tempdata[, sex_col],
-      function(x) exp(stats::optim(fn = nwfscAgeingError::estgrowth.vb,
+      function(x) exp(stats::optim(fn = nwfscSurvey::fit_vbgrowth,
                   par = log(pars_in),
                   hessian = FALSE,
                   Ages = tempdata[x, age_col],