R/titleIt.R

Defines functions .titleIt

#----------------------------------------------------------------------#
# Add titles to plots.                                                 #
#----------------------------------------------------------------------#
.titleIt <- function(argList, nm) {

  if (is.null(x = argList[[ "main" ]])) {
    argList[[ "main" ]] <- nm
  } else {
    argList[[ "main" ]] <- paste(argList[[ "main" ]], 
                                " (",nm,")", sep="")
  }

  return(argList)

}

Try the DynTxRegime package in your browser

Any scripts or data that you put into this service are public.

DynTxRegime documentation built on Nov. 10, 2020, 1:08 a.m.