Moon and vanEpps (2022+), Study 1
MV23_S1.Rd
Study 1 considers proportion of donators to a charity. Participants in the online panel were provided with an opportunity to win 25$ and donate part of this amount to a charity of their choosing. The data provided include only people who did not exceed this amount and indicated donating a non-zero amount.
Format
A data frame with 869 rows and 4 variables:
before
[integer] did people donate before to this charity? 0 for no, 1 for yes.
donate
[integer] did people choose to donate (donate before to this charity? 0 for no, 1 for yes.
condition
[factor] experimental condition, either an
open-ended
amount or a suggestedquantity
amount
[double] amount of proposed donation,
NA
if the person declined to donate
Source
Research Box 54, https://researchbox.org/54, licensed under CC BY 4.0
References
Moon, A. and EM VanEpps (2023). Giving Suggestions: Using Quantity Requests to Increase Donations, Journal of Consumer Research, 50(1), 190–210. https://doi.org/10.1093/jcr/ucac047
Examples
ctab <- with(MV23_S1, table(donate, condition))
# Chi-square test of independence
chisq_test <- chisq.test(ctab, correct = FALSE)
chisq_test
#>
#> Pearson's Chi-squared test
#>
#> data: ctab
#> X-squared = 20.993, df = 1, p-value = 4.61e-06
#>
# Effect size
sqrt(chisq_test$statistic/nrow(MV23_S1))
#> X-squared
#> 0.1554272
# Welch t-test
t.test(amount ~ condition, MV23_S1)
#>
#> Welch Two Sample t-test
#>
#> data: amount by condition
#> t = -1.1181, df = 581.55, p-value = 0.264
#> alternative hypothesis: true difference in means between group open-ended and group quantity is not equal to 0
#> 95 percent confidence interval:
#> -1.7398139 0.4775039
#> sample estimates:
#> mean in group open-ended mean in group quantity
#> 10.32116 10.95232
#>