如何将功能与值插入集成？答案

【问题标题】：How to integrate function with value insert?如何将功能与值插入集成？
【发布时间】：2019-09-26 11:55:58
【问题描述】：

我想积分dnorm(X, theta, 10)，它的X值是我要插入的数据，theta是一个变量。我有 100 个数据，我想将 dnorm(data[i], theta, 10) 的积分从一加到一百。所以我声明了如下函数。

integrand <- function(theta, X){
  f2 <- dnorm(X, mean = theta, sd = 10)
  return(f2)
}

sum = 0
for(i in 1 : 100){
term = integrate(integrand(X = data[i]), -Inf, Inf)
sum = sum + term
}

但是错误出来了

dnorm 中的错误（theta，mean = theta_0，sd = sd_0）：缺少参数“theta”，没有默认值

有没有办法解决这个问题？

【问题讨论】：

标签： r

【解决方案1】：

你可以尝试一些类似的东西：

data <- runif(100)

integrand <- function(theta, X) dnorm(X, mean = theta, sd = 10)

ss <- 0 
for(i in 1:100){
     ss  <-  ss + integrate(f=integrand, lower=-Inf, upper=Inf,
                            X=data[i])$value
}

但我不认为集成从-Inf 到Inf 的分布很有趣。

【讨论】：