myrvh <- system.file("extdata","Nith.rvh", package="RavenR")
mycust <- system.file("extdata", "run1_PRECIP_Daily_Average_BySubbasin.csv", package="RavenR")
myhyd <- system.file("extdata", "run1_Hydrographs.csv", package="RavenR")
rcs <- rvn_calc_runoff_coeff(myrvh, mycust, myhyd, correct=TRUE)
rcs
# create a bar plot
runcoefs <- subset(rcs,select=c(runoff_coeff_sim,runoff_coeff_obs))
bp <- barplot(t(as.matrix(runcoefs)),
main="Runoff Coefficient Comparison (w/ rough data coverage correction)",
ylab = "Runoff coeff", ylim=c(0,1),beside=TRUE,
col=c("blue","deepskyblue"),legend.text=c("sim","obs"),las=2)
Run the code above in your browser using DataLab