The data in the data set below represents simulated responses of three variables
ID: 3064512 • Letter: T
Question
The data in the data set below represents simulated responses of three variables in 10 subjects collected in the control period and treatment period.
(a) Test at 5% level of significance if there is any difference between the treatment and control periods and draw appropriate conclusion
(b) Justify the test used in (a)
(c) State any assumption(s) required to carry out the test
(d) If the hypothesis in (a) is rejected, use Bonferonni’s method to determine the reason for rejection and draw appropriate conclusions
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
dataset_chegg<-read.delim("chegg.txt",header = TRUE,sep = "")
## Running one way ANOVA test
results_A <- aov(A~dataset_chegg$Occasion*as.factor(dataset_chegg$Subject), data=dataset_chegg)
summary(results_A)
results_B <- aov(B~dataset_chegg$Occasion*as.factor(dataset_chegg$Subject), data=dataset_chegg)
summary(results_B)
results_C <- aov(C~dataset_chegg$Occasion*as.factor(dataset_chegg$Subject), data=dataset_chegg)
summary(results_C)
R Output
> summary(results_A)
Df Sum Sq Mean Sq
dataset_chegg$Occasion 1 20.0 20.00
as.factor(dataset_chegg$Subject) 9 681.8 75.76
dataset_chegg$Occasion:as.factor(dataset_chegg$Subject) 9 5.0 0.56
>
> results_B <- aov(B~dataset_chegg$Occasion*as.factor(dataset_chegg$Subject), data=dataset_chegg)
> summary(results_B)
Df Sum Sq Mean Sq
dataset_chegg$Occasion 1 20 20.00
as.factor(dataset_chegg$Subject) 9 479 53.22
dataset_chegg$Occasion:as.factor(dataset_chegg$Subject) 9 25 2.78
>
> results_C <- aov(C~dataset_chegg$Occasion*as.factor(dataset_chegg$Subject), data=dataset_chegg)
> summary(results_C)
Df Sum Sq Mean Sq
dataset_chegg$Occasion 1 0.4 0.45
as.factor(dataset_chegg$Subject) 9 435.4 48.38
dataset_chegg$Occasion:as.factor(dataset_chegg$Subject) 9 67.0 7.45
Related Questions
drjack9650@gmail.com
Navigate
Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.