Defines functions find.H

Documented in find.H

find.H <-
function(t, h.val, h.ranges){
	x	<-        h.ranges
	y	<-        h.val
	yy	<-        pmin(y, max(y[y<Inf]))
	xx	<-        pmin(x,t)
	H	<-        sum(yy*diff(xx))

Try the CPHshape package in your browser

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

CPHshape documentation built on May 30, 2017, 4:32 a.m.