# Internal to gamUtils?
.rd.gevlss <- function(mu, wt = NULL, scale = NULL) {
out <- mu[ , 1] + exp(mu[ , 2]) *
((-log(runif(nrow(mu))))^(-mu[ , 3])-1) / mu[ , 3]
return( out )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.