# NOT RUN {
x <- seq(from = -4, to = 4, length = 33)
y <- exp(x)
integrate.mstR(x, y) # 54.86381
# }
# NOT RUN {
# Comparison with integrate.xy
require(sfsmisc)
integrate.xy(x, y, use.spline = FALSE) # 54.86381
integrate.xy(x, y) # 54.58058
# }
Run the code above in your browser using DataLab