set.seed(1234)
d <- sample(1:10000,1000,replace = F)
quantile(d, probs = seq(0,1,0.25))
实验内容一
1.固定样本量 和 ,观察重复次数100、200和400时置信区间包含真值 的频率是否接近置信度
2.设置 ,其他保持1不变,重复1,观察模拟结果;并观察与1中置信区间长度对比效果(随的变化)
3.将1中样本量变成n = 200,其他不变,重复1,观察模拟结果,并观察与1中置信区间长度对比效果(随n的变化)