Final check errors

UofUEpiBio · Jun 20, 2024 · db82d03 · db82d03
1 parent 97e074a
commit db82d03
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/R/agents-methods.R b/R/agents-methods.R
@@ -38,11 +38,11 @@
 #' x[0] # Print information about the first agent. Substitute the agent of 
 #'      # interest's position where '0' is. 
 #' @name agents
-get_agents <- function(x, ...) UseMethod("get_agents")
+get_agents <- function(model, ...) UseMethod("get_agents")
 
 #' @export 
 #' @rdname agents
-get_agents.epiworld_model <- function(model) {
+get_agents.epiworld_model <- function(model, ...) {
 
   res <- get_agents_cpp(model)
 

diff --git a/R/entity.R b/R/entity.R
@@ -270,9 +270,9 @@ distribute_entity_randomly <- function(
 distribute_entity_to_set <- function(
   agents_ids
 ) {
-
+  
   structure(
-    distribute_entity_a_set_cpp(
+    distribute_entity_to_set_cpp(
       as.integer(agents_ids)
     ),
     class = "epiworld_distribution_entity"
@@ -290,7 +290,7 @@ set_distribution_entity <- function(
 
   stopifnot_entity(entity)
   stopifnot_entity_distfun(distfun)
-  set_distribution_entity_cpp(entity, distribution)
+  set_distribution_entity_cpp(entity, distfun)
 
   invisible(entity)
 

diff --git a/R/virus.R b/R/virus.R
@@ -566,7 +566,7 @@ distribute_virus_randomly <- function(
 distribute_virus_set <- function(agents_ids) {
 
   structure(
-    distribute_virus_set_cpp(as.vector(agents_id)),
+    distribute_virus_to_set_cpp(as.vector(agents_ids)),
     class = "epiworld_virus_distfun"
   )