Desirability

DESCRIPTION

@@ -105,7 +105,7 @@ VignetteBuilder:
 Encoding: UTF-8
 Language: en-US
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3
 Config/testthat/edition: 3
 Config/testthat/parallel: true
 Config/Needs/website:

R/datasets.R

@@ -84,6 +84,38 @@
 NULL
 
 
+#' Preferences of Poop vs Chocolate
+#'
+#' A subset of Hussey and Cummins replication of _Balcetis & Dunning (2010)
+#' Study 3b_. Each scale is average of 3 items both for "a toilet filled with
+#' human poop" and for  and for "a toilet filled with human poop" (how positive
+#' or negative / pleasant or unpleasant / good or bad).
+#'
+#' @references  Hussey, I., & Cummins, J. (2025). (Not so) simple preferences. https://github.com/ianhussey/not-so-simple-preferences
+#'
+#' @docType data
+#'
+#' @name preferences2025
+#'
+#' @keywords data
+#'
+#' @format A data frame with 489 rows and 3 variables:
+#' \describe{
+#'   \item{participant_id}{Unique identifier for each participant}
+#'   \item{poop}{Preference rating of poop (1 = low, 7 = high)}
+#'   \item{chocolate}{Preference rating of poop (1 = low, 7 = high)}
+#' }
+#'
+#' ```{r}
+#' data("preferences2025")
+#' head(preferences2025, n = 5)
+#' ```
+#' @family effect size datasets
+#'
+#' @seealso [repeated_measures_d()]
+NULL
+
+
 # Tables ------------------------------------------------------------------
 
 #' Fictional Results from a Workers' Randomized Control Trial

R/repeated_measures_d.R

@@ -105,32 +105,30 @@
 #' @examples
 #' # Paired data -------
 #'
-#' data("sleep")
-#' sleep2 <- reshape(sleep,
-#'   direction = "wide",
-#'   idvar = "ID", timevar = "group"
-#' )
-#'
-#' repeated_measures_d(Pair(extra.1, extra.2) ~ 1, data = sleep2)
-#'
-#' # Same as:
-#' # repeated_measures_d(sleep$extra[sleep$group==1],
-#' #                     sleep$extra[sleep$group==2])
-#' # repeated_measures_d(extra ~ group | ID, data = sleep)
+#' data("preferences2025")
+#' # Is chocolate preferred over... poop?
 #'
+#' repeated_measures_d(Pair(chocolate, poop) ~ 1, data = preferences2025)
 #'
 #' # More options:
-#' repeated_measures_d(Pair(extra.1, extra.2) ~ 1, data = sleep2, mu = -1)
-#' repeated_measures_d(Pair(extra.1, extra.2) ~ 1, data = sleep2, alternative = "less")
+#' repeated_measures_d(Pair(chocolate, poop) ~ 1, data = preferences2025,
+#'                     mu = 3.4)
+#' repeated_measures_d(Pair(chocolate, poop) ~ 1, data = preferences2025,
+#'                     alternative = "greater")
 #'
 #' # Other methods
-#' repeated_measures_d(Pair(extra.1, extra.2) ~ 1, data = sleep2, method = "av")
-#' repeated_measures_d(Pair(extra.1, extra.2) ~ 1, data = sleep2, method = "b")
-#' repeated_measures_d(Pair(extra.1, extra.2) ~ 1, data = sleep2, method = "d")
-#' repeated_measures_d(Pair(extra.1, extra.2) ~ 1, data = sleep2, method = "z", adjust = FALSE)
+#' repeated_measures_d(Pair(chocolate, poop) ~ 1, data = preferences2025,
+#'                     method = "av")
+#' repeated_measures_d(Pair(chocolate, poop) ~ 1, data = preferences2025,
+#'                     method = "b")
+#' repeated_measures_d(Pair(chocolate, poop) ~ 1, data = preferences2025,
+#'                     method = "d")
+#' repeated_measures_d(Pair(chocolate, poop) ~ 1, data = preferences2025,
+#'                     method = "z")
 #'
 #' # d_z is the same as Cohen's d for one sample (of individual difference):
-#' cohens_d(extra.1 - extra.2 ~ 1, data = sleep2)
+#' cohens_d(chocolate - poop ~ 1, data = preferences2025)
+#'
 #'
 #'
 #'
@@ -264,7 +262,7 @@
   r <- stats::cor(x, y)
   f <- 2 * (1 - r)
 
   if (method == "rm") {
     # nolint
     s <- stats::sd(x - y) / sqrt(f)
     d <- (m - mu) / s

data-raw/df data.R

@@ -259,3 +259,17 @@
 save(rouder2016, file = "data/rouder2016.rdata")
 
 # styler: on
+
+
+# https://github.com/ianhussey/not-so-simple-preferences -----------------
+
+preferences2025 <- read.csv(url("https://github.com/ianhussey/not-so-simple-preferences/raw/refs/heads/main/data/processed/data_processed_subset_with_exclusions.csv"))
+
+preferences2025 <- preferences2025[
+  ,
+  c("participant_id", "evaluations_poop", "evaluations_chocolate")
+]
+
+colnames(preferences2025) <- gsub("evaluations_", "", colnames(preferences2025))
+
+save(preferences2025, file = "data/preferences2025.rdata")

inst/WORDLIST

@@ -10,6 +10,7 @@ Awang
 Azen
 BESD
 BMC
+Balcetis
 Baptista
 BayestestR's
 Behaviour
@@ -35,10 +36,10 @@ Codecov
 Compatibiity
 Cramer's
 Cramér's
+Cummins
 Cureton
 DOI
 Delacre
-Dom
 Doutelle
 Doutelle's
 EQS
@@ -67,6 +68,7 @@ Hjort
 Hoekstra
 Hotelling's
 Hu
+Hussey
 IFI
 IRRs
 Intraclass
@@ -176,15 +178,13 @@ arcsin
 bayestestR
 biserial
 blogspot
-bmwiernik
 brglm
 brms
 brussels
 cbu
 cfa
 cgam
 cglm
-cles
 cohens
 complmrob
 cplm
@@ -197,23 +197,21 @@ effectsize’
 et
 fixest
 frac
-friedman
 ggstatsplot
+github
 glmmadmb
 gtsummary
 homoscedasticity
 http
 https
+ianhussey
 independant
 infty
 intraclass
 jeffrouder
 joss
-kruskal
 labelled
-lifecycle
 lm
-mattansb
 mis
 mixor
 modelling
@@ -228,21 +226,17 @@ noncentrality
 num
 partialled
 partilled
-patilindrajeets
 pb
 pkgdown
 ppd
 pre
 preprint
 rb
-rempsyc
 rescale
 rmANOVA
 sd
 semipartial
 statswiki
-strengejacke
 th
 uk
-wilcox
 פ