survival_gg(0.0001,0,1,1) # Extreme value type I distribution, maximum case.
times <- seq(0.05,7,by=0.05)
plot(times, survival_gg(times,0,1,1)$survival_value,type='l')
plot(times, survival_gg(times,0,1,1)$hazard_value,type='l')
plot(times, survival_gg(times,0,1,1)$cumulative_hazard_value,type='l')
Run the code above in your browser using DataLab