#hazard function look like ↓

# hx(t) = fx(t)/1-Fx(t) or PDF/1-CDF (of function)

​

#for example Beta distribution:

#PDF in R will be dbeta(t,alpha,beta)

#CDF in R will be pbeta(t,alpha,beta)

#and together it`s ↓

​

Hazard_function_1 <- function(t){

hx_t <- dbeta(t,0.2,0.2)/1-pbeta(t,0.2,0.2)

}

​

print(Hazard_function_1(0.75))

​

#made by Zepopo