powered by
simp(f, a, b, m = 100)
simp
f
a
b
m
adaptint
gaussint
giniquintile
mcint
midpt
revolution-solid
romberg
simp38
trap
Other newton-cotes: adaptint, giniquintile, midpt, romberg, simp38, trap
f <- function(x) { sin(x)^2 + cos(x)^2 } simp(f, -pi, pi, m = 10) simp(f, -pi, pi, m = 100) simp(f, -pi, pi, m = 1000)
Run the code above in your browser using DataLab