R/CREATE_DISTR.R

In HYRISK: Hybrid Methods for Addressing Uncertainty in RISK Assessments

CREATE_DISTR <-
function(input,DISCR=1000){

INPUT=lapply(input,CREATE_DISTR_fun,DISCR)

for (i in 1:length(INPUT)){
	if (INPUT[[i]]$type=="impr proba"){
		for (j in INPUT[[i]]$param){
			INPUT[[j]]$level=2
		}
	}
}	

return(INPUT)
}