# Loading the 'tcals' parameters
x <- seq(from = -4, to = 4, length = 33)
y <- exp(x)
integrate.catR(x, y) # 54.86381
# Comparison with integrate.xy
require(sfsmisc)
integrate.xy(x, y, use.spline = FALSE) # 54.86381
integrate.xy(x, y) # 54.58058Run the code above in your browser using DataLab