Convert normal to binomial

norm2binom(x, size = 1, prob = 0.5, mu = mean(x),
  sd = stats::sd(x))

Arguments

x

the normally distributed vector

size

number of trials (0 or more)

prob

the probability of success on each trial (0 to 1)

mu

the mean of x (calculated from x if not given)

sd

the SD of x (calculated from x if not given)

Value

a vector with a binomial distribution

Examples

x <- rnorm(10000) y <- norm2binom(x) g <- ggplot2::ggplot() + ggplot2::geom_point(ggplot2::aes(x, y)) ggExtra::ggMarginal(g, type = "histogram")