Academic Integrity: tutoring, explanations, and feedback — we don’t complete graded work or submit on a student’s behalf.

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

Hire Me For All Your Tutoring Needs
Integrity-first tutoring: clear explanations, guidance, and feedback.
Drop an Email at
drjack9650@gmail.com
Chat Now And Get Quote