Function to create month, year, month#, day, date, decimal date, and water year to the mergeWaterQuantPopServe data frame
melt_water_quant_pop(df_in)
| df_in | data frame |
|---|
pathToSample <- system.file("extdata",package = "wateRuseSWUDS") dp <- read_swuds_pop(file.path(pathToSample,"OHpopserved_output.xlsx")) dq <- read_swuds_quant(file.path(pathToSample, "OH_CTF_SW_monthly_permit_sample_data.xlsx")) df <- merge_dq_dp(dq, dp) df_melt <- melt_water_quant_pop(df)