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