BIOL400 Chapter 6 Descriptive statistics_Homework-6

.docx

School

Fayetteville State University *

*We aren’t endorsed by this school

Course

400

Subject

Health Science

Date

Jan 9, 2024

Type

docx

Pages

3

Uploaded by MasterLionPerson973

Homework-6 (30 points) As part of a nutrition education program, extension educators had students keep diaries of what they ate for a day and then calculated the calories students consumed. Student  Teacher  Sex     Calories  Rating a        Tetsuo   male    2300      3 b        Tetsuo   female  1800      3 c        Tetsuo   male    1900      4 d        Tetsuo   female  1700      5 e        Tetsuo   male    2200      4 f        Tetsuo   female  1600      3 g        Tetsuo   male    1800      3 h        Tetsuo   female  2000      3 i        Kaneda   male    2100      4 j        Kaneda   female  1900      5 k        Kaneda   male    1900      4 l        Kaneda   female  1600      4 m        Kaneda   male    2000      4 n        Kaneda   female  2000      5 o        Kaneda   male    2100      3 p        Kaneda   female  1800      4 For each of the following, answer the question, and show the output from the analyses you have used to answer the question. a. What is the mean of Calories? (5 points) 1918.75 b. What is the 95% confidence interval for Calories (traditional method)? (5 points) (1811.79, 2025.71) c. What is the mean of Calories for females and males? (5 points) male = 2037.5 and female = 1800 d. What are the 95% confidence intervals for Calories for females and males (traditional method)? (5 points) male (1896.63, 2178.37) and female (1665.93, 1934.06) e. Looking at the 95% confidence intervals for Calories for males and females, are we justified in claiming that the mean calories are statistically different for females and males? Why? (10 points).
No we are not justified because there is an overlap in the confidence interval for the male and female mean calories. Please also include R codes that you have been used for the analysis > m<-c(2300,1900,2200,1800,2100,1900,2000,2100) > f<-c(1800,1700,1600,2000,1900,1600,2000,1800) > ca<-c(m,f) > mean(ca) [1] 1918.75 > sd(ca) [1] 200.7278 > t_2t(2000,1918.75,200.7278,16,0.05) [1] "-1.61910806574874" "2.13144954555978" "Fail to reject H0" "0.126253167217718"   "1811.7897054772" [6]   "2025.7102945228" > mean(m) [1] 2037.5 > sd(m) [1] 168.5018 > mean(f) [1] 1800 > sd(f) [1] 160.3567 > t_2t(2000,2037.5,168.5018,8,0.05) [1] "0.629465187778303" "2.36462425159278" "Fail to reject H0" "0.549029328408308" " 1896.62896986773 " [6] " 2178.37103013227 " > t_2t(2000,1800,160.3567,8,0.05) [1] "-3.5276694079464" "2.36462425159278" "Reject H0" "0.00962791188065859" "1 665.9384438765 " [6] "1 934.0615561235 "
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