如何用函数计算向量的均值与方差？支持$符号提取结果

你的原函数返回的是普通向量，而向量无法通过$符号访问元素，要实现需求需要做两个关键调整：

• 只生成一次截断正态样本：原函数两次调用truncnorm::rtruncnorm()会生成两组不同的随机数据，导致均值和标准差不对应同一组样本，这是逻辑漏洞。
• 返回命名列表：列表支持通过$符号按名称访问元素，完全符合你的需求。

修改后的完整代码：

x <- function(n, a, b, mean, sd){
  # 生成一次截断正态样本并保存
  sample_data <- truncnorm::rtruncnorm(n, a, b, mean, sd)
  # 基于同一样本计算均值和标准差
  meann <- mean(sample_data)
  std <- sd(sample_data)
  # 返回命名列表
  return(list(meann = meann, std = std))
}

# 调用函数并保存结果
result <- x(n=100, a = -1, b = 1, mean = 0, sd = 1)

# 通过$符号单独提取结果
result$meann  # 获取均值
result$std    # 获取标准差

说明 #

1. 修正样本生成逻辑：只调用一次rtruncnorm()，确保均值和标准差基于同一组随机样本，结果更准确一致。
2. 命名列表的优势：列表的每个元素都有明确名称，不仅支持$访问，也可以用result[["meann"]]的方式访问，灵活性更高。

内容的提问来源于stack exchange，提问作者Daniel James