norm <- rnorm(1000, mean=5, sd=2)
params <- norm2lnorm(5, 2^2)
lnorm <- rlnorm(1000, meanlog=params[1], sdlog=params[2]^0.5)
# Mean and SD of lnorm is equivalent to mean and sd of norm
mean(lnorm)
sd(lnorm)
Run the code above in your browser using DataLab