R语言自定义荧光强度计算函数求助：可调整均值、标准差及分布

以下是满足需求的R函数实现：

calculate_fluorescence <- function(dist_fun, mean_val, sd_val, ...) {
  dist_fun(..., mean = mean_val, sd = sd_val)
}

参数说明 #

• dist_fun：指定要使用的分布函数，比如rnorm（生成正态分布随机数）、dnorm（计算正态分布概率密度）
• mean_val：分布的均值（避免和R内置mean函数重名，采用此命名）
• sd_val：分布的标准差（同理避免和内置sd函数冲突）
• ...：传递给分布函数的其他必要参数，比如rnorm需要的样本数量n，dnorm需要的待计算数值x

使用示例 #

示例1：生成正态分布随机荧光强度样本

生成100个均值为100、标准差为15的荧光强度数据：

fluorescence_samples <- calculate_fluorescence(rnorm, mean_val = 100, sd_val = 15, n = 100)

示例2：计算特定值的正态分布概率密度

计算数值为100时，均值100、标准差15的正态分布概率密度：

density_at_100 <- calculate_fluorescence(dnorm, mean_val = 100, sd_val = 15, x = 100)

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