Wk10_assignment_SP24

docx

School

Phoenix College *

*We aren’t endorsed by this school

Course

324

Subject

Statistics

Date

Apr 3, 2024

Type

docx

Pages

2

Uploaded by ProfessorFog12950

Report
MAR2801 Week 10 In-Class Assignment Please highlight or change the text color of your answers and code to make them distinct from the questions. Light blue highlighted code is necessary, but showing the output is not. Gray highlighted code is necessary AND you are required to show the output. You MUST include the code you use (for every part d) as well as the output you get (for every part b and d). For each of the following exercises (a) load the data (b) list and check the assumptions for parametric testing, interpreting the output of any test that you need to run (c) identify the required test (d) run the test, and (e) interpret the output. For each of the questions, the dataset will be in Wk_11_list.RData on CANVAS with the name of the dataset being the number of the question spelled out. Set your working directory for wherever you put the Wk_11_list.RData file. Then, run the following code: load(“Wk_11_list.RData”) 1. (4 pts) Two years ago, 100 randomly selected Melicoccus bijugatus seeds were planted in individual pots. At this point, assuming regular growth, the trees should be 1.2 meters tall. We want to know if the average height of our Melicoccus bijugatus trees is 1.2 meters tall. (a) load data one <- Wk_11_list[["one"]] (b) assumptions shapiro.test(one) (c) identify test (d) run test (e) interpret output 2. (4 pts) A pharmaceutical company needs to ensure their pill does not have more than 0.65 mg of the medication in their pills. A random sample of 1000 pills are selected off of various production lines. Identify if the pills have an average dose less than or equal to 0.65 mg of the medication. (a) load data two <- Wk_11_list[["two"]] (b) assumptions
shapiro.test(two) (c) identify test (d) run test (e) interpret output 3. (4 pts) We need to determine if there is a difference in the sepal length between two species of irises. Use the data provided to determine if there is a difference in the sepal lengths between randomly selected members of I. versicolor and I. virginica. (a) load data three <- Wk_11_list[["three"]] (b) assumptions tapply(three$Sepal.Length,three$Species, function(x) shapiro.test(x)) bartlett.test(three$Sepal.Length~three$Species) (c) identify test (d) run test (e) interpret output 4. (4 pts) We need to determine if there is a difference in the number of insects remaining on randomly selected plants after applying two insecticides. Use the data provided to determine if there is a difference between the number of insects remaining between sprays A and B. (a) load data four <- Wk_11_list[["four"]] (b) assumptions (c) identify test (d) run test (e) interpret output 5. (4 pts) We measured the height of the same randomly selected trees in 2019 and 2020. Identify if the height of the trees is different between years. (a) load data five <- Wk_11_list[["five"]] (b) assumptions shapiro.test(five$height[five$year==2019]-five$height[five$year==2020]) (c) identify test (d) run test (e) interpret output
Your preview ends here
Eager to read complete document? Join bartleby learn and gain access to the full version
  • Access to all documents
  • Unlimited textbook solutions
  • 24/7 expert homework help