diff --git a/R/VAST_do.R b/R/VAST_do.R index 6101320..1d34165 100644 --- a/R/VAST_do.R +++ b/R/VAST_do.R @@ -162,10 +162,10 @@ VAST_do <- function(Database, settings, conditiondir, compiledir, Year = out$year_labels[index[["Table"]][, "Time"]], Unit = index[["Table"]][, "Units"], Fleet = index[["Table"]][, "Stratum"], - SD_log = index[["Table"]][, "Std. Error for Estimate"], - SD_mt = index[["Table"]][, "Std. Error for ln(Estimate)"] # Go from kg to mt to keep backwards compatibility with VASTWestCoast Estimate_metric_tons = index[["Table"]][, "Estimate"], / 1000 + SD_log = index[["Table"]][, "Std. Error for ln(Estimate)"], + SD_mt = index[["Table"]][, "Std. Error for Estimate"] ) utils::write.csv(x = indexdata, file = fileindex, row.names = FALSE) plot_ss(file.in = fileindex,