Question

USE R, SHOW R CODE AND OUTPUT

APPLIED STATISTICS 2

3. Are Angry People More Likely to have Heart Disease’? People who get angry easily tend to be more likely to have heart disease. That is the conclusion of a study that followed a random sample of 12,986 people from three locations over about four years. All subjects were free of heart disease at the beginning of the study. The subjects took the Spielberger Trait Anger Scale, which measures how prone a person is to sudden anger. The 8474 people in the sample who had normal blood pressure were classified according to whether they had “coronary heart disease” (CHD) or not and whether they had low anger, moderate anger, or high anger according to the Anger Scale.  The classification summary is given.

	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

Answer 1

The R output is:

The R code is:

x <- matrix(c(53,3057,110,4621,27,606), nrow = 2)
chisq.test(x)

p-value = 0.0003228

Since the p-value (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 thumbs-up if this helps you out. Thank you!