# Loading the 'tcals' parameters
x <- seq(from = -4, to = 4, length = 33)
y <- exp(x)
integrate.catR(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
# ## End(Not run)
Run the code above in your browser using DataLab