BRFSS_Part1_Q8

Each respondent was asked if they participated in any physical activities in the past month. Run an ANOVA comparing how many times ***per week*** they took part in that exercise/activity with marital status. - Assign the summary of `aov()` to Q8. Note: the general instructions say to round all output but the summary of `aov()` is not able to be rounded. - Your output should match the value included in the output below. - Use the summary of aov() not anova().

``` Df Sum Sq Mean Sq F value Pr(>F) [variable] 5 7706 [value] [value] [value] *** Residuals [value] [value] [value] --- Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Below is the code I have tried already, I've also attached the codebook for reference. The variables used in my code are correct. Note we must use tidyverse where possible and cannot create multiple copies of the data set.

brf <- brf |> filter(!is.na(EXEROFT1), EXEROFT1 >= 101, EXEROFT1 <= 199) |> as.data.frame() aov(EXEROFT1 ~ MARITAL, data = brf) Q8 <- summary(aov(EXEROFT1 ~ MARITAL, data = brf))