#Get observed QMED for site 15006
Qob <- median(GetAM(15006)[,2])
#Get QMED equation estimated QMED for the donor site
QCD <- 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, Qob, QCD, xSI = 289289,ySI = 947523,xDon = 280908,yDon = 953653)
Run the code above in your browser using DataLab