R/aux_trapezoid.R

aux_trapezoid <-
function(x,y){
	N = length(x);
	return(sum((x[2:N]-x[1:N-1])*(y[2:N]+y[1:N-1])*0.5));
}

Try the peacots package in your browser

Any scripts or data that you put into this service are public.

peacots documentation built on May 2, 2019, 5:41 a.m.