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 Tine Worker", "Part Tine Worker", "Part Time Worker", "Part Time Worker", "Part Time Worker", "Part Tine Worker", "Part Time Worker", "Full time Worker", "Full Time Worker", "Full 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 E 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 \&- data.framel value =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 Mospital", "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 Medicine", "Sent Home with Medicine", "Sent Mome with Medicine", "Sent Home with Medir ine" "Cent Home with Medrine") What is the p-value of the ANOVA test? Hint: Link to Text Book E