# Get observed QMED for site 15006
q_ob <- median(GetAM(15006)[, 2])
# Get QMED equation estimated QMED for the donor site
q_cd <- QMED(CDs = GetCDs(15006))
# Display CDs for site 27051 & note the easting and northing
GetCDs(27051)
# Display CDs for site 15006 & note the easting and northing
GetCDs(15006)
# Apply the QMEDDonEq function with the information gained
QMEDDonEq(
194, 1096, 0.955, 0.297, q_ob, q_cd,
xSI = 289289, ySI = 947523,
xDon = 280908, yDon = 953653
)
Run the code above in your browser using DataLab