fix typo

pedersen-fisheries-lab · Feb 14, 2022 · 53292dc · 53292dc
1 parent 8abb27d
commit 53292dc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/spm_smooth.R b/R/spm_smooth.R
@@ -104,7 +104,7 @@ setMethod(f = "spm_smooth",
 
             # Check that response is a density, issue an info if not
             response <- spm_response(sspm_formula)
-            if (!checkmate::test_choice(response, spm_density_vars(sspm_object@density))){
+            if (!checkmate::test_choice(response, spm_density_vars(sspm_object))){
               cli::cli_alert_info(
                 paste0(" Note:  response variable ", cli::col_br_red(response),
                        " is NOT a biomass density variable"))