Entering the Data in R

Machine1<-c(16.03,16.04,16.05,16.05,16.02,16.01,15.96,15.98,16.02,15.99)
Machine2<-c(16.02,15.97,15.96,16.01,15.99,16.03,16.04,16.02,16.01,16.00)
dat<-data.frame(Machine1,Machine2)

Sample Size in each population is not large

length(Machine1)
## [1] 10
length(Machine2)
## [1] 10

Check for Normality

qqnorm(Machine1)
qqline(Machine1)

qqnorm(Machine2)
qqline(Machine2)

Checking for Constant Variance

boxplot(Machine1,Machine2)

Hypothesis Testing Answer to PartA *{1}= Average of Machine1* = Average of Machine2 H_{0}: *{1}= H_{1}: *{1}\neq \mu {2}

t.test(Machine1,Machine2, var.equal = TRUE, conf.level = 0.95)
## 
##  Two Sample t-test
## 
## data:  Machine1 and Machine2
## t = 0.79894, df = 18, p-value = 0.4347
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.01629652  0.03629652
## sample estimates:
## mean of x mean of y 
##    16.015    16.005

Answer to PartB Conclusion: Since the P value is very large we reject the null hypothesis that the means of Machine 1 and Machine 2 are equal.

Answer to PartC P-value=0.4347

Answer to PartD Confidence Interval -0.016 *{1}-* 0.036