R/find.H.R

In CPHshape: Find the maximum likelihood estimator of the shape constrained hazard baseline and the effect parameters in the Cox proportional hazards model

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))
	return(H)
	}

Try the CPHshape package in your browser