parent frame 6

nimble-dev · Jan 24, 2024 · 4b95292 · 4b95292
1 parent da8a585
commit 4b95292
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/nimbleHMC/R/HMC_samplers.R b/nimbleHMC/R/HMC_samplers.R
@@ -163,7 +163,7 @@ hmc_checkTarget <- function(model, targetNodes, hmcType) {
     ADok <- sapply(dists,
                    function(dist) {
                        ## this took some detective work to find the right environment:
-                       nfObj <- eval(as.name(dist), envir = parent.frame(5))
+                       nfObj <- eval(as.name(dist), envir = parent.frame(6))
                        if(!is.null(environment(nfObj)$nfMethodRCobject)) {
                            ## user-defined:
                            return(!isFALSE(environment(nfObj)$nfMethodRCobject[['buildDerivs']]))