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)