Converting a logic in R to Excel VBA

[Juggler_IN]

I seek help in converting a R code to VBA code. The code is:




"rboxcox" <- function(n, lambda, lambda2 = NULL, mean = 0, sd = 1)
{
if(is.null(lambda2)) lambda2 <- 0
if(is.na(lambda2)) lambda2 <- 0
xn <- rnorm(n = n, mean = mean, sd = sd)
if(isTRUE(all.equal(unname(lambda), 0))) xbc <- exp(xn)
else{
xbc <- rep(NA, n)
ind <- xn < -1/lambda
sum.ind <- sum(ind)
if(sum.ind > 0)
cat(paste("rboxcox: WARNING ", sum.ind, "values truncated to 0\n"))
xn[ind] <- -1/lambda
xbc <- ((xn * lambda) + 1)^(1/lambda)
}
return(xbc - lambda2)
}