powered by
trapezint(x, y, a, b)
x <- sort(runif(30)) y <- sin(x) print(trapezint(x,y,0,1))
Run the code above in your browser using DataLab