diff --git a/R/lamW.R b/R/lamW.R index 430df0d..aaaa962 100644 --- a/R/lamW.R +++ b/R/lamW.R @@ -1,10 +1,10 @@ -lambertW0 <- function(x){ +lambertW0 <- function(x) { LAM <- double(length(x)) LAM <- lambertW0_C(x) return(LAM) } -lambertWm1 <- function(x){ +lambertWm1 <- function(x) { LAM <- double(length(x)) LAM <- lambertWm1_C(x) return(LAM)