#' Function to return the monthly mean time series for a given daily data series
#'
#' This function accepts a data frame containing daily data and returns a data frame containing mean monthly data
#'
#' @param qfiletempf data frame containing daily value data
#' @return meanmonts data frame containing mean monthly values
#' @export
#' @examples
#' data<-paste(system.file(package="NWCCompare"),"/data/qfiletempf.csv",sep="")
#' qfiletempf<-read.csv(data,stringsAsFactors=FALSE)
#' monthly.mean.ts(qfiletempf)
monthly.mean.ts <- function(qfiletempf) {
meanmonts <- aggregate(qfiletempf$discharge, list(qfiletempf$year_val,qfiletempf$month_val), FUN = mean, na.rm=TRUE)
colnames(meanmonts) <- c("Year","Month","Mean_disch")
return(meanmonts)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.