R/get_my_colors.R

In pierrejacob/winference: Approximate Bayesian Computation with the Wasserstein distance

#'@export
get_my_colors <- function(){
  return(c("Hilbert" = "orange", "marginal" = "red", "Curve matching" = "darkblue",
           "MMD"="009E73", "Posterior"="black",
           "Summary"="orange",
           "Semi-auto"="orange",
           "SA + constraint"="red",
           "Wasserstein"="darkblue",
           "Euclidean"="#009E73",
           "Swap" = "purple",
           "Rej. Summary" = "purple",
           "W + constraint" = "darkgreen"
  ))
}