A field experiment examining whether people’s support on gay marriage is affected by their interaction with canvassers from the same or different groups (gay or straight canvasser). This exercise is based on: LaCour, M. J., and D. P. Green. 2014. “When Contact Changes Minds: An Experiment on Transmission of Support for Gay Equality.” Science 346(6215): 1366–69.
Note that the original study was later retracted due to allegations of fabricated data.In this exercise, however, we analyze the original data while ignoring the allegations.
The experiment
Treatment Canvassers were given a same-sex marriage Script leading to conversations that averaged about twenty minutes.
The names and descriptions of variables in the data set
| Name | Description |
|---|---|
treatment |
Treatment (0, 1, 2):
control(treatment==0): no canvassers,
treatment==1: Same-Sex Marriage Script by Gay Canvasser,
treatment==2: Same-Sex Marriage Script by Straight Canvasser, |
ssm |
Support for gay marriage (1 to 5). Higher scores indicate more support. |
Load the Data
Load the “gay_marriage.csv” dataset by using gmarriage as a name to the dataframe.
# view(gay_marriage.csv)
# gmarriage <- gay_marriage.csv
# read.csv ("gmarriage")
# read.csv(gmarriage)
# dim (gmarriage)
#dim(gmarriage)
ssm from not support (1) to very support (5)treatment == 1Follow the steps:
# Step 1. Calculate the average support for same-sex marriage for the control group: treatment==0
# view(gay_marriage.csv)
# gmarriage <- gay_marriage.csv
# read.csv ("gmarriage")
# read.csv(gmarriage)
# Step 2. Calculate the average support for same-sex marriage for the Same-Sex Marriage Script by Gay Canvasser group: treatment == 1
# view(gay_marriage.csv)
# gmarriage <- gay_marriage.csv
# read.csv ("gmarriage")
# read.csv(gmarriage)
# Step 3. Compute the difference of the mean in support for same sex marriage between treatment group 1 and control group
# view(gay_marriage.csv)
# gmarriage <- gay_marriage.csv
# read.csv ("gmarriage")
# read.csv(gmarriage)
ssm from not support (1) to very support (5)treatment == 2Follow the steps: Step 1. Calculate the average support for same-sex marriage for the control group: use the object representing the mean for the control group you created in Q2
# Step 2. Calculate the average support for same-sex marriage for the Same-Sex Marriage Script by Straight Canvasser group: treatment == 2
# view(gay_marriage.csv)
# gmarriage <- gay_marriage.csv
# read.csv ("gmarriage")
# read.csv(gmarriage)
# Step 3. Compute the difference of the mean in support for same sex marriage between treatment group 2 and control group
# view(gay_marriage.csv)
# gmarriage <- gay_marriage.csv
# read.csv ("gmarriage")
# read.csv(gmarriage)