R/PROBA_INTERVAL.R

In HYRISK: Hybrid Methods for Addressing Uncertainty in RISK Assessments

PROBA_INTERVAL <-
function(Z0,threshold){
F1<- kde(type_kernel="e", vec_data=Z0[1,],
		y=threshold)$Estimated_values
F2<- kde(type_kernel="e", vec_data=Z0[2,],
		y=threshold)$Estimated_values
return(list(Plow=min(F1,F2),Pupp=max(F1,F2)))
}