R/scaled_dnorm.R

In cnfoley/mrclust: Identifying Clustered Heterogeneity in Mendelian Randomization Analyses

# introduce "scale" variable to shrink denisty to fit in the vertical plot range
scaled_dnorm <- function(theta, mean = 4, sd = 1, log = TRUE, scale = 1) {
  tmp <- stats::dnorm(theta, mean, sd)
  if (log) {
    tmp <- log(tmp)
  }
  return(scale * tmp)
}