This preview shows pages 1–3. Sign up to view the full content.
This preview has intentionally blurred sections. Sign up to view the full version.View Full Document
Unformatted text preview: > # (used in notes for one sample hypothesis testing) > > # Clear the workspace > rm(list=ls()) > > # enter the data > X=read.table("Ch23_Triphammer_Speeds.txt", header=T) > speed=X$speed > > # Hypothesis test for Ha: mu > 30 > t.test(speed, alternative="greater", mu=30) One Sample t-test data: speed t = 1.1781, df = 22, p-value = 0.1257 alternative hypothesis: true mean is greater than 30 95 percent confidence interval: 29.52257 Inf sample estimates: mean of x 31.04348...
View Full Document
This note was uploaded on 03/27/2012 for the course ECON 2280 taught by Professor Daniel during the Spring '12 term at Dalhousie.
- Spring '12