please provide final calculations!

A researcher wants to know if there is a difference between the mean amount of sleep that people get for various types of employment status. The table below shows data that was collected from a survey. Use the R window to answer the question below: 1 ibrary (car) dat =c(5.7,5.8,6.3,5.5,5.9,5.6,4,4.8,4,4.9,4.1,4.6,4,4, 9,8.4,9,8.7,8.8), catagory = c("Unemployed", "Unemployed", "Unemployed", "Unemployed", "Unemployed", "Unemployed", "Part Time Worker", "Part Time Worker", "Part Time Worker", "Part Time Worker", "Part Time Worker", "Part Time Worker", "Part Time Worker", "Part Tine Worker", "Fu11 Time Worker", "Full Time Worker", "Ful1 Time Worker", "Full Time Worker", "Full Time Worker") ) Run (Ctrl-Enter) You should assume that any scripts or data that you put into this service are public. Privacy policy. Computation provided by rdrrio: hosting documentation for all R packages. What is the p-value of the Shapiro-Wilk test? Hint: Link to Text Book A hospital wants to determine if the type of treatment for pneumonia is a factor in recovery time? The table below shows the number of days to recovery for several randomly selected pneumonia patients that had various types of treatment. Use the R window to answer the question below: dat =c(15,16,17,14,17,19,17,19,16,14,20,19,18,20,13, 9,16,12,12 ), catagory = c("Overnight Hospital Stay", "Overnight Hospital Stay", "Overnight Hospital Stay", "Overnight Hospital Stay", "Overnight Hospital Stay", "Overnight Hospital Stay", "A Few Hours in the HospitaI", "A Few Hours in the Hospital", "A Few Hours in the Hospital", "A Few Hours in the Hospital", "A Few Hours in the Hospital", "A Few Hours in the Hospital", "A Few Hours in the Hospital", "A Few Hours in the Hospital", "Sent Home with Hedicine", "Sent Home with Medicine", "Sent Hone with Medicine", "Sent Home with Madicine" "Cent Homa with Madietina") Run (Ctrl-Enter) You should assume that any scripts or data that you put into this service are public. Privacy policy. Computation provided by rdrrio: hosting documentation for all R packages. What is the p-value of the ANOVA test? Hint: Link to Text Book