> table(samhda$marijuana) marijuana 1 2 309 281The hypothesis test is between
|
> x = 309; n = 309 + 281 > prop.test(x,n,p=.5,alt="greater") 1-sample proportions test with continuity correction data: x out of n, null probability 0.5 X-squared = 1.236, df = 1, p-value = 0.1332 alternative hypothesis: true p is greater than 0.5 ...which is a small, but not significant p-value.