Convert normal to binomial
norm2binom(x, size = 1, prob = 0.5, mu = mean(x), sd = stats::sd(x))
| 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) |
a vector with a binomial distribution
x <- rnorm(10000) y <- norm2binom(x) g <- ggplot2::ggplot() + ggplot2::geom_point(ggplot2::aes(x, y)) ggExtra::ggMarginal(g, type = "histogram")