trapz(1:10, 1:10)
trapz(1:10, 10:1)
trapz(1:10, 11:20)
trapz(1:10, 11:20, baseline="square")
trapz(1:10, 11:20, baseline="trapezoid")
x_vals <- seq(-2, 2, length.out=100)
trapz(x_vals, dnorm(x_vals))
x_vals <- seq(0, pi/2, length.out=100)
trapz(x_vals, cos(x_vals))
Run the code above in your browser using DataLab