R中的积分计算

Question

z <- function(x)(sin(3*x)*(1-cos(3*x))
integrate(z, lower = 0, upper = 2pi)

我正在尝试计算这个积分在R.结果应该是0但程序给出其他结果。我是初学者，我不知道我做错了什么。

Answer 1

您有一些语法问题。校正：

z <- function(x)(sin(3*x)*(1-cos(3*x)))
integrate(z, lower = 0, upper = 2*pi)

R FIDDLE

或者没有外括号：

z <- function(x) sin(3*x)*(1-cos(3*x))
integrate(z, lower = 0, upper = 2*pi)