Question

我正在使用以下R代码，取自已发表的论文（下面引用）。这是代码：

int2=function(x,r,n,p) {
    (1+x)^((n-1-p)/2)*(1+(1-r^2)*x)^(-(n-1)/2)*x^(-3/2)*exp(-n/(2*x))}
integrate(f=int2,lower=0,upper=Inf,n=530,r=sqrt(.245),p=3, stop.on.error=FALSE)

当我运行它时，我得到错误“非有限函数值”。然而，Maple能够将其计算为4.046018765 * 10 ^ 27。

我尝试在包pracma中使用“integral”，这给了我一个不同的错误： if（delta＆lt; tol）break的错误：缺少值，其中需要TRUE / FALSE

总体目标是计算两个积分的比率，如Wetzels＆amp; Sons; Wagenmakers（2012）“相关性的默认贝叶斯假设检验”（http://www.ncbi.nlm.nih.gov/pmc/articles/PMC3505519/）。整个功能如下：

jzs.pcorbf = function(r0, r1, p0, p1, n) {
  int = function(r,n,p,g) {
    (1+g)^((n-1-p)/2)*(1+(1-r^2)*g)^(-(n-1)/2)*g^(-3/2)*exp(-n/(2*g))};
  bf10=integrate(int, lower=0,upper=Inf,r=r1,p=p1,n=n)$value/
       integrate(int,lower=0,upper=Inf,r=r0,p=p0,n=n)$value;
  return(bf10)
}

谢谢！

Answer 1

问题是，当在其域中使用NaN值调用时，您的积分函数会生成x值。您正在从0到Infinity进行集成，因此我们检查有效x值为1000：

int2(1000, sqrt(0.245), 530, 3)
# [1] NaN

您的目标乘以四件：

x <- 1000
r <- sqrt(0.245)
n <- 530
p <- 3
(1+x)^((n-1-p)/2)
# [1] Inf
(1+(1-r^2)*x)^(-(n-1)/2)
# [1] 0
x^(-3/2)
# [1] 3.162278e-05
exp(-n/(2*x))
# [1] 0.7672059

我们现在可以看到问题在于你将无穷大乘以0（或者更确切地说，数值等于无穷大的数字等于0的数字），这导致了数值问题。而不是计算a*b*c*d，计算exp(log(a) + log(b) + log(c) + log(d))（使用log(a*b*c*d) = log(a)+log(b)+log(c)+log(d)的标识）会更稳定。另一个快速说明 - 值x = 0需要特殊情况。

int3 = function(x, r, n, p) {
  loga <- ((n-1-p)/2) * log(1+x)
  logb <- (-(n-1)/2) * log(1+(1-r^2)*x)
  logc <- -3/2 * log(x)
  logd <- -n/(2*x)
  return(ifelse(x == 0, 0, exp(loga + logb + logc + logd)))
}
integrate(f=int3,lower=0,upper=Inf,n=530,r=sqrt(.245),p=3, stop.on.error=FALSE)
# 1.553185e+27 with absolute error < 2.6e+18

＆＃34;非有限函数值＆＃34;在R中使用integrate（）时

1 个答案: