In: Statistics and Probability
USE R, SHOW R CODE AND OUTPUT
APPLIED STATISTICS 2
Low Anger 
Moderate Anger 
High Anger 


53 
110 
27 
No CHD 
3057 
4621 
606 
Use R to conduct a test to see whether we can conclude at α=0.05, that angry
people are more likely to have heart disease.
USE R
The R output is:
The R code is:
x < matrix(c(53,3057,110,4621,27,606), nrow =
2)
chisq.test(x)
pvalue = 0.0003228
Since the pvalue (0.0003228) is less than the significance level (0.05), we can reject the null hypothesis.
Therefore, we can conclude that angry people are more likely to have heart disease.
Please give me a thumbsup if this helps you out. Thank you!