# Set up a pooling group for site 44013. Then apply the function.
Pool44013 <- Pool(GetCDs(44013))
PoolNF <- NonFloodAdjPool(Pool44013)
#return the non flood stats for the pooling group
NonFloodAdjPool(Pool44013, ReturnStats = TRUE)
Run the code above in your browser using DataLab