我想在 R 中计算以下积分。
我尝试使用 Vectorize
和 integrate
功能,但我有错误Error in (log(z)) * (InIntegl2) : non-numeric argument to binary operator
fxyz= function(x,y,z) { (x*y*z)+z+x+2*y}
InIntegl1 = Vectorize(function(x) { integrate(fxyz, 0,5)$value})
InIntegl2 = Vectorize(function(y) { integrate( InIntegl1, 0,3)$value})
InIntegl3 = Vectorize(function(z) { integrate((log(z))*(InIntegl2), 2,6)$value})
Integral = integrate(InIntegl3 , 2, 6)$value
最佳答案
第一个积分必须由 y 和 z 参数化,第二个积分必须由 z 参数化。然后我们可以进行最后的积分。
int1 <- Vectorize(function(y, z) integrate(fxyz, 0, 5, y = y, z = z)$value)
int2 <- Vectorize(function(z) integrate(int1, 0, 3, z = z)$value)
integrate(function(z) log(z) * int2(z), 2, 6)$value
## [1] 2071.71
关于r - 如何解决数值积分中的 "non-numeric argument.."错误?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/66146606/