这是我第一次使用 stackoverflow，所以请耐心等待！我正在使用 R 包“pracma”来计算三重积分。这是我的代码：
mu1=0
mu2=0
mu3=0
mu4=0
sigma1=1
sigma2=1
sigma3=1
sigma4=1
f3=function(x,y,z){dnorm(z,mean = mu2,sd=sigma2)*dnorm(y,mean =
mu3,sd=sigma3)*(1-pnorm(z,mean= mu1,sd=sigma1))*dnorm(x,mean =
mu4,sd=sigma4)}
ymin=function(x){x}
zmin=function(x,y){y}
integral3(f3,xmin = -100,xmax = 100,ymin,ymax=100,zmin,zmax = 100)
但实际上，我收到以下错误：
Error in if (adjerr[1] > localtol) { :
missing value where TRUE/FALSE needed
有人可以给我一个解决这个问题的提示吗？预先感谢