Skip to contents

Take the mean of each month, filter if there's not at least 15 days, and create a new date that is the midpoint of each month.

Usage

monthly_mean(x, date_col = "Date", value_col = "X_62610_00001")

Arguments

x

data.frame

date_col

character name of date column

value_col

character name of value column

Examples


# site <- "263819081585801"
parameterCd <- "62610"
# statCd <- "00001"
# gw_level_dv <- dataRetrieval::readNWISdv(site, parameterCd, 
#                                           statCd = statCd)
# Using package example data:
gw_level_dv <- L2701_example_data$Daily

site_statistics <- monthly_frequency_table(gw_level_dv, 
                                           NULL,
                                           parameter_cd = parameterCd)

gw_monthly <- monthly_mean(gw_level_dv)