1local({ 2## Compute 3q <- seq (0, qlnorm (.99, meanlog=0.0, sdlog=1.0), length.out=20) 4p <- plnorm (q, meanlog=0.0, sdlog=1.0) 5## Print result 6rk.header ("Log Normal distribution", parameters=list("meanlog (mean on log scale)"="0.0", 7 "sdlog (standard deviation on log scale)"="1.0", 8 "Tail"="Lower tail: P[X ≤ x]")) 9rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE)) 10}) 11