I might be doing some wrong, but this is the quick checkup I coded
Iago
library(r4ss)
library(data.table)
# LOAD files
fev <- SS_output("vendace")
waan <- data.table(r4ss::SS_readwtatage('vendace/wtatage.ss_new'))
# EXTRACT data.tables
natage <- data.table(fev$natage)
derq <- data.table(fev$derived_quants)
# N
stkn <- natage[Yr == 2019 & `Beg/Mid` == "B", 13:25]
# WT
wt <- unlist(waan[Yr == 2019 & Fleet == 0, 7:19])
# MAT
mat <- unlist(waan[Yr == 2019 & Fleet == -2, 7:19]) / wt
# SSB
sum(stkn * mat * wt)
# Returns 8216
# Derived quantities
derq[Label == "SSB_2019",]
# Label Value StdDev (Val-1.0)/Stddev CumNorm
# 1: SSB_2019 8128 1064 NA NA