# Get observed QMED for site 15006
q_ob <- GetQMED(15006)
# Get QMED equation estimated QMED for the donor site
q_cd <- QMED(CDs = GetCDs(15006))
# Apply the QMEDDonEq function with the information gained, assuming
# a distance of 30km and subject site QMED estimate of 3.9
QMEDDonEq(
QMED.scd = 3.9, QMEDgObs = q_ob, QMEDgCds = q_cd,
Distance = 30
)
Run the code above in your browser using DataLab