# 生成100个随机数set.seed(123)# 为了结果可重复data<-rnorm(100,mean=50,sd=10)# 计算样本均值mean_value<-mean(data)# 计算标准误差std_error<-sd(data)/sqrt(length(data))# 确定临界值critical_value<-1.96# 计算95%置信区间lower_bound<-mean_value-critical_value*std_error upper_bound<-mean_val...