Johnson, Samarah V00849172 STAT 256 Lab 8 Instructor: Chi Kou Problem 1: December 1973 average windspeed at Victoria International Airport was 12.2km/h. Researchers report that winter wind speeds are getting stronger. Use average December wind speeds data from 1980 to 2014. Test claim that median windspeed in Victoria is greater than 12.2 km/h.
> binom.test(n.obs, n = length(windspeed), p = 0.5, alternative = "less") Exact binomial test data: n.obs and length(windspeed) number of successes = 20, number of trials = 35, p-value = 0.8447 alternative hypothesis: true probability of success is less than 0.5 95 percent confidence interval: 0.0000000 0.7141512 sample estimates: probability of success 0.5714286 > qqnorm(windspeed, main = "Q-Q plot Windspeed Data", pch = 19) > qqline(windspeed, col = 'pink', lwd = 3) > wilcox.test(windspeed, mu = 12.2, correct = F, alternative = "greater", exact = F) Wilcoxon signed rank test data: windspeed V = 276, p-value = 0.7386 alternative hypothesis: true location is greater than 12.2 > t.test(windspeed, mu = 12.2, alternative = "greater") One Sample t-test data: windspeed t = -0.77505, df = 34, p-value = 0.7782 alternative hypothesis: true mean is greater than 12.2 95 percent confidence interval: 11.5273 Inf sample estimates: mean of x 11.98857 >