R/longitudinal_plot_helpers.R

In pcvr: Plant Phenotyping and Bayesian Statistics

#' Helper to turn off faceting for dummy grouping
#' @keywords internal
#' @noRd

.no_dummy_labels <- function(group, facetGroups) {
  if (all(group == "dummyGroup")) {
    facetGroups <- FALSE
  }
  return(facetGroups)
}

#' Helper for plotting changepoint models
#' @keywords internal
#' @noRd

inv_logit <- function(x) {
  return(1 / (1 + exp(-x)))
}