Changed str_c() to paste0() in the vignettes

yhoriuchi · Jul 15, 2023 · d4f835b · d4f835b
1 parent 8c39cbf
commit d4f835b
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 6 deletions.
diff --git a/vignettes/01-read-wrangle.Rmd b/vignettes/01-read-wrangle.Rmd
@@ -12,14 +12,13 @@ vignette: >
 ## Test
 
 ```{r}
-library(tidyverse)
 library(projoint)
 ```
 
 # Data with the flipped repeated tasks
 
 ```{r}
-outcomes <- str_c("choice", seq(from = 1, to = 8, by = 1))
+outcomes <- paste0("choice", seq(from = 1, to = 8, by = 1))
 outcomes <- c(outcomes, "choice1_repeated_flipped")
 out1 <- reshape_conjoint(.data = exampleData1, 
                          .idvar = "ResponseId", 

diff --git a/vignettes/02-predict-irr.Rmd b/vignettes/02-predict-irr.Rmd
@@ -12,12 +12,11 @@ vignette: >
 Read, ...
 
 ```{r}
-library(tidyverse)
 library(projoint)
 ```
 
 ```{r}
-outcomes <- str_c("choice", seq(from = 1, to = 8, by = 1))
+outcomes <- paste0("choice", seq(from = 1, to = 8, by = 1))
 out3 <- reshape_conjoint(.data = exampleData3, 
                          .idvar = "ResponseId", 
                          .outcomes = outcomes,

diff --git a/vignettes/03-estimate-mm.Rmd b/vignettes/03-estimate-mm.Rmd
@@ -11,13 +11,12 @@ vignette: >
 
 
 ```{r}
-library(tidyverse)
 library(projoint)
 ```
 
 
 ```{r}
-outcomes <- str_c("choice", seq(from = 1, to = 8, by = 1))
+outcomes <- paste0("choice", seq(from = 1, to = 8, by = 1))
 outcomes <- c(outcomes, "choice1_repeated_flipped")
 out1 <- reshape_conjoint(.data = exampleData1, 
                          .idvar = "ResponseId",