Did the hand washing anchor treatment make a difference for the self-reported number of contacts (out- come_closecontact)? Use any methodology suitable to answer this question. What would be your expectation and why?

* I have already done the data, please interpret above and explain statistically the question.

#ho: treat does not explain outcome

#h1: treat does explain outcome

Im(formula = tbSoutcome - as . factor(tb$treat)) Residuals: Min 1Q Median 3Q Max -8.423 -5.708 -3.423 1.577 92.292 Coefficients: Estimate Std. Error t value Pr(>Itl) (Intercept) 8.4231 0. 5265 16.000 tb = data. frame(treat = cv$treat_handwash, outcome = cvSoutcome_closecontact) > aggregate(outcome - treat, data = tb, FUN = sd) #SD are different for 2 groups treat outcome 1 high 12. 829060 2 Low 8.967736 > anova summary(anova) #groups differ in means, very low Pvalue Of Sum Sq Mean Sq F value Pr(>F) tb$treat 1 650 650.0 5.306 0.0215 * Residuals 882 108047 122.5 Signif. codes: * ***' 0.001 (**' 0.01 **' 0.05 ' . ' 0.1 ' 1 > modell = lm(tbSoutcome - as . factor (tb$treat)) #regression model > summary (model1)