R/removeImmOS.R

In wStockhausen/rTCSAM2015: A set of tools to set up input for, and interact with output from, a TCSAM2015 model run, as well as to compare TCSAM2015 and rsimTCSAM runs.

#'
#'@title Remove rows marked as immature, old shell from a dataframe
#'
#'@description Function to remove rows marked as immature, old shell from a dataframe.
#'
#'@param mdfr - datarame from which to remove the immature, old shell factor combination
#'@param maturity - name of column specifying maturity state
#'@param shell_condition - name of column specifying shell condition
#'
#'@return dataframe with immature, old shell factor combination removed
#'
#'@export
#'
removeImmOS<-function(mdfr,maturity='m',shell_condition='s'){
    idx<-!((mdfr[[maturity]]=='immature')&(mdfr[[shell_condition]]=='old shell'))
    mdfr<-mdfr[idx,];
    return(mdfr);
}