Converting Net Speciation Rel Deathrate Rel Samplingrate To

# Calculate birth and death
rel_deathrate = unname(BD$para["d/b"])
net_speciation = unname(BD$para["b-d"])
deathRate = (net_speciation*rel_deathrate) / (1-rel_deathrate)
birthRate = deathRate + net_speciation

birthRate
deathRate

net_speciation = 0.045
rel_deathrate = 0.9063
rel_samplingrate = 0.27

deathRate = (net_speciation*rel_deathrate) / (1-rel_deathrate)
birthRate = deathRate + net_speciation
samplingRate = birthRate * rel_samplingrate

birthRate
deathRate
samplingRate

net_speciation = 0.0387
rel_deathrate = 0.8941
rel_samplingrate = 0.801

deathRate = (net_speciation*rel_deathrate) / (1-rel_deathrate)
birthRate = deathRate + net_speciation
samplingRate = birthRate * rel_samplingrate

birthRate
deathRate
samplingRate

net_speciation = 0.00429
rel_deathrate = 0.8941
rel_samplingrate = 0.801

deathRate = (net_speciation*rel_deathrate) / (1-rel_deathrate)
birthRate = deathRate + net_speciation
samplingRate = birthRate * rel_samplingrate

birthRate
deathRate
samplingRate

net_speciation = 0.0839
rel_deathrate = 0.8941
rel_samplingrate = 0.801

deathRate = (net_speciation*rel_deathrate) / (1-rel_deathrate)
birthRate = deathRate + net_speciation
samplingRate = birthRate * rel_samplingrate

birthRate
deathRate
samplingRate