#Read in AMAX and catchment descriptors
if (FALSE) AMAdd <- AMImport(r"{D:\NRFAPeakFlow_v12_1_0\suitable-for-neither\027003.am}")
if (FALSE) CDsAdd <- CDsXML(r"{D:\NRFAPeakFlow_v12_1_0\suitable-for-neither\027003.xml}")
#Apply the function and then add the results to the necessary data.frames.
if (FALSE) Gauge27003 <- AddGauge(CDsAdd, AMAdd, ID = "27003")
#Add the descriptors and stats (the first element of the output) to the NRFAData data.frame
if (FALSE) NRFAData <- rbind(NRFAData, Gauge27003[[1]])
#Add the AMAX to the AMSP data.frame.
if (FALSE) AMSP <- rbind(AMSP, Gauge27003[[2]])
Run the code above in your browser using DataLab