Fix lookup

mrc-ide · Oct 10, 2024 · e7e1ce2 · e7e1ce2
1 parent dc3487f
commit e7e1ce2
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/R/sampler-nested-adaptive.R b/R/sampler-nested-adaptive.R
@@ -148,7 +148,7 @@ monty_sampler_nested_adaptive <- function(initial_vcv,
     state <- list(pars = pars, density = c(density))
     ## TODO: mrc-5862
     if (model$properties$has_observer) {
-      state$observation <- m$observer$observe()
+      state$observation <- model$observer$observe()
     }
     state
   }
@@ -204,7 +204,7 @@ monty_sampler_nested_adaptive <- function(initial_vcv,
         internal$density_by_group <- density_by_group_next
         ## TODO: mrc-5862
         if (model$properties$has_observer) {
-          state$observation <- m$observer$observe()
+          state$observation <- model$observer$observe()
         }
       }
     } else {
@@ -278,7 +278,7 @@ monty_sampler_nested_adaptive <- function(initial_vcv,
       internal$density_by_group <- density_by_group_next
       ## TODO: mrc-5862
       if (model$properties$has_observer) {
-        state$observation <- m$observer$observe()
+        state$observation <- model$observer$observe()
       }
     }
 

diff --git a/R/sampler-nested-random-walk.R b/R/sampler-nested-random-walk.R
@@ -118,7 +118,7 @@ monty_sampler_nested_random_walk <- function(vcv, boundaries = "reflect") {
     state <- list(pars = pars, density = c(density))
     ## TODO: mrc-5862
     if (model$properties$has_observer) {
-      state$observation <- m$observer$observe()
+      state$observation <- model$observer$observe()
     }
     state
   }
@@ -166,7 +166,7 @@ monty_sampler_nested_random_walk <- function(vcv, boundaries = "reflect") {
         internal$density_by_group <- density_by_group_next
         ## TODO: mrc-5862
         if (model$properties$has_observer) {
-          state$observation <- m$observer$observe()
+          state$observation <- model$observer$observe()
         }
       }
     }
@@ -233,7 +233,7 @@ monty_sampler_nested_random_walk <- function(vcv, boundaries = "reflect") {
       internal$density_by_group <- density_by_group_next
       ## TODO: mrc-5862
       if (model$properties$has_observer) {
-        state$observation <- m$observer$observe()
+        state$observation <- model$observer$observe()
       }
     }
     state