H A D | expoTrans.R | 7 expoTrans.default <- function(y, na.rm = TRUE, init = 0, lim = c(-4, 4), method = "Brent", numUniq… argument 15 results <- optim(init, manlyLik, x = y[!is.na(y)], neg = TRUE, method = method, 17 out <- list(lambda = results$par, est = manly(y, results$par)) nameattr 19 out <- list(lambda = NA, est = y) globalVar 20 } else out <- list(lambda = NA, est = y) globalVar 31 expoTrans.numeric <- function(y, na.rm = TRUE, init = 0, lim = c(-4, 4), method = "Brent", numUniq… argument 39 results <- optim(init, manlyLik, x = y[!is.na(y)], neg = TRUE, method = method, 41 out <- list(lambda = results$par, est = manly(y, results$par)) nameattr 43 out <- list(lambda = NA, est = y) globalVar 44 } else out <- list(lambda = NA, est = y) globalVar [all …]
|