Statistics Canada conducts an annual survey to estimate the proportion of Canadians aged 20 - 24 years of age who are smokers. The most recent application of the Canadian Tobacco Monitoring Survey involved a random sample of n=496 Canadians aged 20 to 24 years of age. Each was asked for the smoking status. The number of 20 to 24 year-olds sampled who indicated they were smokers was 333. (a) Compute the sample proportion. Use at least four decimals in your answer. p^= __________ (b) Using your answer in (a), find a 97% confidence interval for pnow, the current proportion of 20 to 24 year old Canadians who are smokers, by Bootstrapping 1000 samples. Use the seed 3994 to ensure that R-Studio "randomly" samples the same "random" samples as this question will expect. You can do this by including the code, you can copy it into your R-Studio to bootstrap your samples. RNGkind(sample.kind = "Rejection"); set.seed(3994); B=do(1000) * mean(resample(c(rep(1,333),rep(0,496-333)), 496)); Use at least four decimals in all your calculations. lower bound = ______ upper bound = ________ (c) Using your answer in (a), find a 97% confidence interval for pnow, the current proportion of 20 to 24 year old Canadians who are smokers, by Using the Z distribution. To avoid rounding errors you should use R-Studio and not Z tables Use at least four decimals in all your calculations. lower bound = __________ upper bound = _________
Statistics Canada conducts an annual survey to estimate the proportion of Canadians aged 20 - 24 years of age who are smokers. The most recent application of the Canadian Tobacco Monitoring Survey involved a random sample of n=496 Canadians aged 20 to 24 years of age. Each was asked for the smoking status. The number of 20 to 24 year-olds sampled who indicated they were smokers was 333.
(a) Compute the sample proportion. Use at least four decimals in your answer.
p^= __________
(b) Using your answer in (a), find a 97% confidence interval for pnow, the current proportion of 20 to 24 year old Canadians who are smokers, by Bootstrapping 1000 samples. Use the seed 3994 to ensure that R-Studio "randomly" samples the same "random" samples as this question will expect.
You can do this by including the code, you can copy it into your R-Studio to bootstrap your samples.
RNGkind(sample.kind = "Rejection");
set.seed(3994);
B=do(1000) * mean(resample(c(rep(1,333),rep(0,496-333)), 496));
Use at least four decimals in all your calculations.
lower bound = ______
upper bound = ________
(c) Using your answer in (a), find a 97% confidence interval for pnow, the current proportion of 20 to 24 year old Canadians who are smokers, by Using the Z distribution.
To avoid rounding errors you should use R-Studio and not Z tables
Use at least four decimals in all your calculations.
lower bound = __________
upper bound = _________
Step by step
Solved in 2 steps
