# NOT RUN {
xLog <- data.frame(logmean = c(0.8, 0.8), sigma = c(0.2, 0.3))
xOrig <- as.data.frame(scaleLogToOrig(xLog$logmean, xLog$sigma))
xLog2 <- as.data.frame(scaleOrigToLog(xOrig$mean, xOrig$sd))
all.equal(xLog, xLog2)
xLog3 <- as.data.frame(getParmsLognormForMoments(xOrig$mean, xOrig$sd^2))
all.equal(xLog$sigma, xLog3$sigma) # but mu < logmean
# }
Run the code above in your browser using DataLab