### Name: trapezint
### Title: trapezoidal rule for AUC
### Aliases: trapezint
### Keywords: models

### ** Examples

x <- sort(runif(30))
y <- sin(x)
print(trapezint(x,y,0,1))