# NOT RUN {
#Get observed QMED for site 96003
Qob <- median(GetAM(96003)[,2])
#Get QMED equation estimated QMED for the donor site
QCD <- QMED(CDs = GetCDs(96003))
#display CDs for site 96001 & note the easting and northing
GetCDs(96001)
#display CDs for site 96003 & note the easting and northing
GetCDs(96003)
#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