## Planned comparisons between domestic and international bookings

Qn11. Download the file bookflights.csv from the course materials. This file describes a survey in which website visitors books a flight on either Expedia, Orbitz, or Priceline. Whether they booed a domestic or international flight was recorded. The survey response was 1-7 rating for Ease on a Likert-type scale, with “7” being easiest. The research question is which site felt easiest to use overall, and specifically for domestic vs. international bookings. How many subjects took part in this study?

Qn12. Create an interaction plot with Website on the X-axis and International as the traces. How many times, if ay, do the two traces cross? Hint: if you already recoded Ease as an ordinal response, you must use as.numeric when passing it to interaction.plot.

Qn13. Use ordinal logistic regression to examine Ease by Website and International. To the nearest ten-thousandth (four digits), what is the p-value of the website main effect? Hint: Use the MASS library and its polr function with Hess = TRUE to create the ornidal logistic model. Then use the car library and its Anova function with type = 3. Prior to either, set sum-to-zero contrasts for both website and international.

Qn14. Conduct three planned comparisons between domestic and international bookings for each website. Adjust for multiple comparisons using Holm’s sequential Bonferroni procedure. What is the highest p-value from such tests? Hint: use the multcomp and lsmeans libraries and the lsmeans, pairs, and as.glht functions. (The lsm formulation from within glht will not work in this case.) Because we only have three planned pairwise comparisons, use “none” for the multiple comparisons adjustment to avoid correcting for all possible pairwise comparisons. Instead, just find the three planned and as-yet uncorrected p-values and pass them manually to p.adjust with method=”holm”. Since the formulation for simultaneous comparisons is a bit different, we place the code for those aspects of this questions here:

``````Summary(glht(m,lsm(pairwise ~ website * International)), test = adjusted (type = “non”))
``````

Qn15. Which of the following conclusions are supported by the analyses we performed on bookflights.csv?

``````There was a significant main effect of website on Ease
There was a significant main effect of International on Ease
There was significant website*international interaction
Expedia was perceived as significantly easier for booking international flights than domestic
Orbitz was perceived as significantly easier for booking domestic flights than international flights
Priceline was perceived as significantly easier for booking domestic flights than interanion flights.

``````

## 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.