powered by
Area_Under_Curve(x, y, method = c("trapezoid", "step", "spline"), na.rm = FALSE)
x <- seq(0, pi, length.out = 200) plot(x = x, y = sin(x), type = "l") Area_Under_Curve(x = x, y = sin(x), method = "trapezoid", na.rm = TRUE)
Run the code above in your browser using DataLab