createset function updated and first test for createset

.gitattributes

+* text=auto
+*.R text eol=lf

R/createSets.R

@@ -44,10 +44,12 @@ createSets <- function(.data, choice, attributes , uniquerow, prefix="a") {
     stop("The columns choice, uniquerow, and attributes should not have missing values.")
   }
 
+
+
   sets <- .data %>%
     dplyr::select({{ attributes }}, {{ choice }}, {{ uniquerow }} ) %>%
     dplyr::group_by(!!rlang::sym(uniquerow), !!rlang::sym(choice)) %>%
-    dplyr::add_count() %>% dplyr::ungroup %>%
+    dplyr::add_count() %>% dplyr::ungroup() %>%
     dplyr::group_by(!!rlang::sym(uniquerow)) %>%
     dplyr::distinct(n, .keep_all=TRUE) %>%
     dplyr::mutate(perc = round((n / sum(n) * 100))) %>%

tests/manual-tests/createSets-test.R

+
+rm(list = ls())
+devtools::load_all()
+
+model_path <- system.file("extdata", "csasimdata.csv", package = "choiceTools")
+
+data <- read.csv(model_path)
+
+
+sets <- createSets(data,choice = "CHOICE", uniquerow = "Choice_situation" ,attributes =c("alt1_x1" , "alt2_x1", "alt1_x2" , "alt2_x2") ,prefix = "alt" )
+
+