# Calculations for Common oak, European beech, Norway spruce, Douglas fir,
# and Scots pine with parameters after Staupendahl and Zucchini (AFJZ 2011)
t <- seq(0, 120, 5)
survival_weibull(t, alpha = 2.75, s_100 = 0.971) # oak
survival_weibull(t, alpha = 1.76, s_100 = 0.967) # beech
survival_weibull(t, alpha = 2.78, s_100 = 0.726) # spruce
survival_weibull(t, alpha = 3.11, s_100 = 0.916) # Douglas
survival_weibull(t, alpha = 2.45, s_100 = 0.923) # pine
Run the code above in your browser using DataLab