#Form a gauged pooling group and plot the diagnostics with gauged = TRUE
Pool.28015 <- Pool(GetCDs(28015))
DiagPlots(Pool.28015, gauged = TRUE)
#Form an ugauged pooling group and plot the diagnostics
Pool.28015 <- Pool(GetCDs(28015), exclude = 28015)
DiagPlots(Pool.28015)
Run the code above in your browser using DataLab