# NOT RUN {
#Get some CDs and output candidate donor sites
CDs.54022 <- GetCDs(54022)
DonAdj(CDs.54022)
#Get results with inputs of x,y, and QMEDscd
DonAdj(x = 283261, y = 288067, QMEDscd = 17.931)
#Get a result with two donors
DonAdj(CDs.54022, d2 = c(54092, 54091))
# }
Run the code above in your browser using DataLab