R/error_check_build_Ptest_df.R

In brouwern/FACavian: An R implementation and extension of full-annual cycle (FAC) model of Runge & Marra *2005)

#' QA/QC: Build sequences of parameters for testing mate pairing equations
#'
#' @param include.W.0 xxx
#' @param include.K.0 xxx
#' @param seqW xxx
#' @param seqK xxx
#' @param seqP.cgg xxx
#' @param seqP.cgp xxx
#' @param seqP.cpg xxx
#' @param seqP.cpp xxx
#' @param seqP.kgg xxx
#' @param seqP.kgp xxx
#' @param seqP.kpg xxx
#' @param seqP.kpp xxx
#'
#' @return P.test.df xxxx of parameters
#'
#' @examples
#' P.test.df <- error_check_build_Ptest_df()
#' dim(P.test.df)
#'
#' @export
error_check_build_Ptest_df <- function(include.W.0 = FALSE,
                                       include.K.0 = FALSE,
                                       seqW = seq(1,100,30),
                                      seqK =  seq(1,250,50),
                                      seqP.cgg = NA,
                                      seqP.cgp = NA,
                                      seqP.cpg = NA,
                                      seqP.cpp = NA,
                                      seqP.kgg = NA,
                                      seqP.kgp = NA,
                                      seqP.kpg = NA,
                                      seqP.kpp = NA){
  if(include.W.0 == TRUE){
    seqW = seq(0,100,30)
  }

  if(include.K.0 == TRUE){
    seqK = seq(0,100,30)
  }

  P.test.df <- expand.grid(mg = seqW,
                           mp = seqW,
                           fg = seqW,
                           fp = seqW,
                           K.bc = seqK,
                           K.bk = seqK,
                           P.cgg = seqP.cgg,
                           P.cgp = seqP.cgp,
                           P.cpg = seqP.cpg,
                           P.cpp = seqP.cpp,

                           P.kgg = seqP.kgg,
                           P.kgp = seqP.kgp,
                           P.kpg = seqP.kpg,
                           P.kpp = seqP.kpp)

  return(P.test.df)
}