# Download the file socialvalue.csv from the course materials

## Doing Factorial ANOVAs

Qn20. Download the file **socialvalue.csv** from the course materials. This file describes a study of people viewing a positive or negative film clip before going onto social media and then judging the value of the first 100 posts they see there. The number of valued posts was recorded. Examine the data and indicate what kind of experiment design this was.

```
- A 2x2 between-subjects design with factors for clip (positive, negative) and social (Facebook, Twitter).
-A 2x2 within-subjects design with factors for clip(positive, negative) and social (facebook, Twitter).
-A 2x2 mixed factorial design with a between-subjects factor for clip (positive, negative) and a within-subjects factor for social (Facebook, Twitter).
- None of the above
```

Qn21. How many subjects took part in this experiment?

Qn22. To the nearest hundredth (two digits), on average how many posts out of 100 were valued for the most combination of clip and social?

Qn23. Create an interaction plot with social on the X-axis and clip as the traces. Do the lines cross?

```
Yes
No
```

Qn24. Create an interaction plot with clip on the X-axis and social as the traces. Do the lines cross?

```
Yes
No
```

Qn25. Conduct a factorial ANOVA to test for any order effects that the presentation order of the clip factor and/or the social factor may have had. To the nearest ten-thousandth (four digits), what is the p-value for the ClipOrder main effect? Hint: Use the ez library and its ezANOVA function. Pass both ClipOrder and Socialorder as the within parameter using a vector created with the “c” function.

Qn26. **Conduct a factorial ANOVA** on valued by clip and social. To the nearest hundredth (two digits), what is the largest F statistic produced by such a test? Hint: use the ez library and its function. Pass both clip and social as the within parameter using a vector created with the “c” function.

Qn27. Conduct two planned pairwise comparison using paired-samples t-tests. The first question is whether on Facebook, the number of valued posts was different after people saw a positive fil clip versus a negative film clip. The second question is whether on Twitter, the number of valued posts was different after people saw a positive film clip versus a negative film clip. Assuming equal variances and using Holm’s sequential Bonferroni procedure to correct for multiple comparisons, what to within a ten-thousandth (four digits) is the lowest p-value from these tests? Hint: use the reshape2 library and its dcast function to make a wide-format table with columns for subject and the combination of social* clip, and then do a paired-samples t-test between columns with the same social level.

Qn28. Which of the following conclusions are supported by the **planned pairwise comparisons** just conducted? (Mark all that apply)

```
On Facebook, people valued significantly more posts after seeing a positive film clip than a negative film clip
On Facebook, people valued significantly more posts after seeing a negative film clip than a positive film clip.
On Twitter, people valued significantly more posts after seeing a positive film clip than a negative film clip,
On Twitter, people valued significantly more posts after seeing a negative film clip than a positive film clip.
```

Qn29. Continue using the file socialvalue.csv from the course materials. Conduct a **nonparametric Aligned Rank Transform procedure** on Valued by Clip and Social. To the nearest hundredth (two digits). What is the largest F statistic produced by this procedure?

```
Hint: use the ARTOOL library and its art function with the formula.
Valued ~ Clip * Social + (1|Subject)
```

The above formular expression indicates that subject is to be treated as a random effect.

Qn30. **Pairwise comparisons** among levels of clip and among levels of social could be conducted using the following code, but these are unnecessary after our main effects tests because each of these factors only has two levels.

```
library(lsmeans)
lsmeans(artlm(m,”clip”), pairwise ~ Clip)
lsmenas(artlm(m, “social”), pairwise ~ social)
```

True

False

Qn31. **Conduct interaction contrasts** (i.e difference-of-differences) to discover whether the difference in the number of valued posts after viewing a negative clip vs. a positive clip on Facebook was itself different that that same difference on Twitter. To the nearest hundredth (two digits), what is the chi-square statistic from such a test? Hint: use the phia library and its testInteractions function with the artlm function.

Qn32. The difference in the number of valued posts after people saw negative film clip vs positive film clips in the Facebook condition is significantly different from that difference in the Twitter condition. An interaction plot makes it clear that the difference in valued posts was much greater in the Facebook condition than in the Twitter condition, with positive film clips resulting in more valued posts.