From 1abf9512b9603ceb8691c9efa43fd16b802afe73 Mon Sep 17 00:00:00 2001
From: Julian Sagebiel <julian.sagebiel@idiv.de>
Date: Sun, 23 Jun 2024 20:55:05 +0200
Subject: [PATCH] added output the sim_all return object
---
NEWS.md | 3 +++
R/sim_all.R | 4 +++-
man/sim_all.Rd | 2 +-
3 files changed, 7 insertions(+), 2 deletions(-)
create mode 100644 NEWS.md
diff --git a/NEWS.md b/NEWS.md
new file mode 100644
index 0000000..ac0e01e
--- /dev/null
+++ b/NEWS.md
@@ -0,0 +1,3 @@
+# simulateDCE 0.1.2
+
+* This is the first release that works well and can be used by anyone. Look at the examples to see how it works.
diff --git a/R/sim_all.R b/R/sim_all.R
index 9af5058..6b071dc 100644
--- a/R/sim_all.R
+++ b/R/sim_all.R
@@ -28,7 +28,7 @@
#' bheight2=0.25,
#' bheight3=0.50)
#'
-sim_all <- function(nosim=2, resps, destype="ngene", designpath, u, bcoeff, decisiongroups = c(0,1), manipulations = list()){
+sim_all <- function(nosim=2, resps, destype=NULL, designpath, u, bcoeff, decisiongroups = c(0,1), manipulations = list()){
#################################################
########## Input Validation Test ###############
@@ -157,6 +157,8 @@ sim_all <- function(nosim=2, resps, destype="ngene", designpath, u, bcoeff, deci
all_designs[["graphs"]]=p
all_designs[["powa"]]=powa
all_designs[["time"]]=time
+ all_designs[["arguements"]] = list( "Beta values" = bcoeff, "Utility functions" = u , "Decision groups" =decisiongroups , "Manipulation of vars" = manipulations,
+ "Number Simulations" = nosim, "Respondents" = resps, "Designpath" = designpath)
diff --git a/man/sim_all.Rd b/man/sim_all.Rd
index 1cc6d88..4fd1b2c 100644
--- a/man/sim_all.Rd
+++ b/man/sim_all.Rd
@@ -8,7 +8,7 @@ update}
sim_all(
nosim = 2,
resps,
- destype = "ngene",
+ destype = NULL,
designpath,
u,
bcoeff,
--
GitLab