#'
#' @title Calculate retained catch size compositions from dockside data
#'
#' @description Function to calculate retained catch size compositions from dockside data.
#'
#' @param dfr - data.frame from function \code{adfgRead_DSD}
#' @param fn - name of file to write csv to (or NULL not to write)
#'
#' @return a dataframe with columns
#' * year
#' * fishery
#' * area
#' * sex
#' * maturity
#' * shell condition
#' * size
#' * count
#'
#' @details Uses \code{sqldf::sqldf} and \code{wtsUtilities::Sum}.
#'
#' @export
#'
adfgZCs_CalcRetZCsFromDSD<-function(dfr,
fn=NULL){
#extract data for size compositions
Sum <- wtsUtilities::Sum;
qry<-"select
fishery,area,year,
sex,maturity,
shell as `shell condition`,
size,
Sum(count) as count
from dfr
group by fishery,area,year,sex,maturity,shell,size
order by fishery,area,year,sex,maturity,shell,size;";
dfrp2<-sqldf::sqldf(qry);
if (!is.null(fn)) write.csv(dfrp2,file=fn,row.names=FALSE);
return(dfrp2);
}
#dfrRetZCs<-adfgZCs_CalcRetZCsFromDSD(dfr);
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.