在R中集成功能

Question

来自代码：

integrand <- function(x) {1/((x+1)*sqrt(x))} 

a <- integrate(integrand, lower = 0, upper = Inf)

然后，它提供结果：3.141593，绝对错误＆lt; 2.7E-05

如何仅保留值3.141593 ?,因为我需要使用R计算+ 3。

由于

Answer 1

虽然它打印成一个字符，但您可以通过

来判断

str(a)

a实际上是一个以value为首要元素的列表。所以你可以轻松获得这个价值：

# by name
a$value
a[['value']]

# or index
a[[1]]

如果您对作为角色打印的原因感兴趣：str(a)还告诉您a class属性设置为integrate。事实证明，print有一个此类的方法：您可以在print.integrate中找到methods(print)。此方法确定打印行为。 print.default(a)可以强制正常打印。