R/utils.R

In pierrejacob/debiasedmcmc: Unbiased MCMC with couplings

# This file consists of short utility functions for working with
# propensity scores, as well as the ggplot2-related  setmytheme.

# from util_expit ---------------------------------------------------------
#'@rdname expit
#'@title expit
#'@description expit function
#'@export
expit <- function(z) 1 / (1 + exp(-z))


# from propensity ---------------------------------------------------------

#'@export
beta2e <- function(beta, C){
  return(beta2e_(beta, C))
}

#'@export
cut_in_fifth <- function(x){
  return(cut_in_fifth_(x))
}


# from util_setmytheme ----------------------------------------------------

#'@rdname setmytheme
#'@title Customize graphical settings
#'@description This function customizes the theme used by ggplot2. Loads the packages ggplot2 and
#'ggthemes.
#'@export
setmytheme <- function(){
  library(ggplot2)
  library(ggthemes)
  theme_set(theme_bw())
  theme_update(axis.text.x = element_text(size = 20),
               axis.text.y = element_text(size = 20),
               axis.title.x = element_text(size = 25, margin=margin(20,0,0,0)),
               axis.title.y = element_text(size = 25, angle = 90, margin = margin(0,20,0,0)),
               legend.text = element_text(size = 20),
               legend.title = element_text(size = 20),
               title = element_text(size = 30),
               strip.text = element_text(size = 25),
               strip.background = element_rect(fill="white"),
               legend.position = "bottom")
}