我有一个问题需要我编写一个程序来模拟具有 7 个自由度的学生 t 分布的 n = 1000 个观察值。
我相信我已经完成了这部分使用
R <- rt(n=1000, df=7)
问题的第二部分要求你编写一个程序来计算截断均值，从学生 t 分布中排除低于 5% 和高于 95% 的整个随机样本 xi 的观察值。
我为此做了一些工作，但不确定如何合并我的 R（T 分布的 1000 个样本）
到目前为止，我得到了：
pt(q=0.95, df= 7, lower.tail = FALSE) + pt(q=-0.95, df= 7, lower.tail = TRUE)
我不确定如何插入 R，也不确定这是否是正确的方法，任何指针都将不胜感激，谢谢