Convert normal to poisson
the normally distributed vector
the mean of the distribution to return
the mean of x (calculated from x if not given)
the SD of x (calculated from x if not given)
a vector with a poisson distribution
x <- rnorm(10000)
y <- norm2pois(x, 2)
g <- ggplot2::ggplot() + ggplot2::geom_point(ggplot2::aes(x, y))
ggExtra::ggMarginal(g, type = "histogram")