matlab 求积分的代码,求积分的代码:从Matlab到R?

考虑下面的MATLAB代码使用仿真近似积分。

function f

numSim = 1000000;

points = rand(numSim,1);

r3 = mean(feval('func3', points));

points1 = rand(numSim,1);

r8 = mean(feval('func8', points, points1));

disp([r3, r8,]);

end %f

%%%%%%%%%% Nested funcitons %%%%%%%%%%%%

function y = func3(x)

y = exp(exp(x));

end %func3

function z = func8(x,y)

z = exp((x+y).^2);

end %func8

我试过的

在R中

f

numSim

points

r3

points1

r8

newList

return(newList)

}

# Nested functions

func3

func3

return(func3)

}

func8

func8

return(func8)

}

第一个问题是一条警告消息:

平均值。默认值(evaluate(points,function)):

参数不是数字或逻辑的:返回na

我补充说

r3

当我输入r3时,输出是[1]na,

为什么它不能正常工作?

另外,

有一条关于-嵌套函数的评论-,我不知道如何在r中实现这一点。