R/I_rd.R

Defines functions .rd.gevlss

# 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 )
}
dill/mgcvUtils documentation built on Oct. 14, 2024, 7:30 p.m.