From fd1f0faa6790d5aaad3244f98e48091f37f385a7 Mon Sep 17 00:00:00 2001 From: Eric Polley Date: Mon, 16 May 2016 14:44:12 -0500 Subject: [PATCH] Update method.R --- R/method.R | 2 -- 1 file changed, 2 deletions(-) diff --git a/R/method.R b/R/method.R index ed81214..edfdb0f 100644 --- a/R/method.R +++ b/R/method.R @@ -254,8 +254,6 @@ method.AUC <- function(nlopt_method = NULL, optim_method = "L-BFGS-B", stop("Please supply either a nlopt or optim method; one of these must be set to NULL.") } - #if (length(optim_method) > 0) { - # if (length(intersect(optim_method, c("Nelder-Mead", "BFGS", "CG", "L-BFGS-B", "SANN"))) == 0) { if (!is.null(optim_method)) { if (!(optim_method %in% c("Nelder-Mead", "BFGS", "CG", "L-BFGS-B", "SANN"))) { stop("supplied 'optim_method' value not supported")