Consider the dataset below with two groups of children. (a) Test if there is a s
ID: 3064241 • Letter: C
Question
Consider the dataset below with two groups of children.
(a) Test if there is a significant difference between the two risk groups at 5% level of
significance and draw appropriate conclusion
(b) Justify the test used in part (a)
(c) State any assumption(s) required to carry out the test
(d) If the hypothesis in part (a) is rejected, identify the reason behind the rejection of the hypothesis. Use all techniques you have learned. Draw appropriate conclusions where required
Data Set
• Please, analysis should be done using R statistical software
• Please show all codes and the corresponding outputs
Explanation / Answer
## loading the data from text file
childrendata<-read.delim("chegg.txt",header = TRUE,sep = "")
View(childrendata)
## Running one way ANOVA test
result_WI <- aov(WI~Group, data=childrendata)
summary(result_WI)
result_WC<-aov(WC~Group, data=childrendata)
summary(result_WC)
result_PC<-aov(PC~Group, data=childrendata)
summary(result_PC)
Output
result_WI <- aov(WI~Group, data=childrendata)
> summary(result_WI)
Df Sum Sq Mean Sq F value Pr(>F)
Group 1 25.83 25.834 7.982 0.00985 **
Residuals 22 71.20 3.236
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
> result_WC<-aov(WC~Group, data=childrendata)
> summary(result_WC)
Df Sum Sq Mean Sq F value Pr(>F)
Group 1 52.51 52.51 10.1 0.00435 **
Residuals 22 114.41 5.20
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
> result_PC<-aov(PC~Group, data=childrendata)
> summary(result_PC)
Df Sum Sq Mean Sq F value Pr(>F)
Group 1 29.04 29.040 9.272 0.00594 **
Residuals 22 68.91 3.132
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1