5.1 某大学为了解学生每天上网的时间,在全校学生中随机抽取 36 人，调查他们每天上网的时间，得到的数据(单位: 小时) 如下:

5.1 某大学为了解学生每天上网的时间,在全校学生中随机抽取 36 人，调查他们每天上网的时间，得到的数据(单位: 小时) 如下:

```{r}
d1 <- read.csv("第五章/第五章/exercise5_1.csv")
# 90%置信区间
t.test(d1$上网时间, conf.level = 0.9)

90%置信区间为(2.863482, 3.769852)

# 95%置信区间
t.test(d1$上网时间, conf.level = 0.95)

95%置信区间为(2.772142, 3.861192)

# 99%置信区间
t.test(d1$上网时间, conf.level = 0.99)

99%置信区间为(2.586075, 4.047258)

5.2 某小区共有居民 500 户，小区管理者准备采用一项新的供水设施,想了解居民是否赞成采取重复抽样方法随机抽取 50 户，其中有 32 户赞成,18 户反对，估计总体中成采用新设施的户 数比例的置信区间，置信水平为 95%。

# 计算样本比例和样本大小
p_hat <- 32/50
n <- 50

# 计算标准正态分布的分位数
z_alpha_2