Final AssignmentSummaryFinal assignment# This is an individual assignment in which cooperation is not permitted.# Reference all sources.# # In the exact Fisher test below, describe:# 1. Assumptions of

Final Assignment

Summary

Final assignment

# This is an individual assignment in which cooperation is not permitted.# Reference all sources.# # In the exact Fisher test below, describe:# 1. Assumptions of the test# 2. How are the results of the test calculated# 3. Interpretation of the test results# 4. In context of Fisher test, meaning of:# .... p-value# .... alternative hypothesis# .... null hypothesis# .... true odds ratio# .... 95 percent confidence interval# .... sample estimate: odds ratio##------------------------------------------tea.tasting <- matrix(c(16,16,8,24),nrow=2)colnames(tea.tasting) <- c('Tasted Tea First', 'Tasted Milk First')rownames(tea.tasting) <- c('True Tea First', 'True Milk First')print(tea.tasting)fisher.test(tea.tasting)

# > print(tea.tasting)# Tasted Tea First Tasted Milk First# True Tea First 16 8# True Milk First 16 24## > fisher.test(tea.tasting)# # Fisher's Exact Test for Count Data# # data: tea.tasting# p-value = 0.06968# alternative hypothesis: true odds ratio is not equal to 1# 95 percent confidence interval:# 0.9284922 10.0255982# sample estimates:# odds ratio # 2.94678