diff --git a/R/Calibration_optim.R b/R/Calibration_optim.R index 81f1424f5847186ef72b06f661addd7b83c8090e..9839b5ace8f8941890f3f024895eab40d1862494 100644 --- a/R/Calibration_optim.R +++ b/R/Calibration_optim.R @@ -139,7 +139,7 @@ Calibration_optim <- function(InputsModel,RunOptions,InputsCrit,CalibOptions,FUN OutputsCalib <- list(as.double(ParamFinalR),CritFinal*Multiplier,as.integer(RESULT$counts[1]),CritName,CritBestValue); names(OutputsCalib) <- c("ParamFinalR","CritFinal","NRuns","CritName","CritBestValue"); class(OutputsCalib) <- c("OutputsCalib","optim"); - return(OutputsCalib); + return(OutputsCalib) }