From fcbe60f9b13c985fbe8880906e684f812e197483 Mon Sep 17 00:00:00 2001
From: dj44vuri <julian.sagebiel@idiv.de>
Date: Sun, 31 Dec 2023 03:14:54 +0100
Subject: [PATCH] u is now an argument in sim_all
---
R/simulate_choices.R | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/R/simulate_choices.R b/R/simulate_choices.R
index 86b3a16..670e08a 100644
--- a/R/simulate_choices.R
+++ b/R/simulate_choices.R
@@ -30,7 +30,7 @@ simulate_choices <- function(data=datadet, utility =utils, setspp, destype) { #
if(!exists("manipulations")) manipulations=list() ## If no user input on further data manipulations
- n=seq_along(1:length(utility)) # number of utility functions
+ n=seq_along(1:length(utility[[1]])) # number of utility functions
cat("\n dataset final_set exists: ",exists("final_set"), "\n")
@@ -57,7 +57,7 @@ simulate_choices <- function(data=datadet, utility =utils, setspp, destype) { #
dplyr::group_by(ID) %>%
dplyr::mutate(!!! manipulations)
-browser()
+
subsets<- split(data,data$group)
--
GitLab