diff --git a/R/fittingFunctions.R b/R/fittingFunctions.R index bc7ddf3..8fc1bb2 100644 --- a/R/fittingFunctions.R +++ b/R/fittingFunctions.R @@ -504,7 +504,7 @@ a4aInternal <- function(stock, indices, fmodel = defaultFmod(stock), qmodel = de # convert to dataframe. NOTE: list2df also logs the observations and centers df.data <- do.call(rbind, lapply(1:length(list.obs), list2df, list.obs=list.obs, list.var=list.var, center.log=center.log)) - if (any(df.data[,5] != 1)) message("Note: Provided variances will be used to weight observations.\n\tWeighting assumes variances are on the log scale or equivalently log(CV^2 + 1).") + if (any(df.data[,5] != 1) & fit != "MP") message("Note: Provided variances will be used to weight observations.\n\tWeighting assumes variances are on the log scale or equivalently log(CV^2 + 1).") # extract auxilliary stock info fbar <- unname(range(stock)[c("minfbar","maxfbar")])