Better output of mvln

flr · Oct 19, 2023 · 1b3438b · 1b3438b
1 parent da891a5
commit 1b3438b
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/R/ssmvln.R b/R/ssmvln.R
@@ -130,10 +130,14 @@ ssmvln <- function(covar, hat=NULL, mc=500, new=!FALSE, as.FLQuants=TRUE) {
   setnames(rtn, c("variable", "value"), c("qname", "data"))
 
   #
-  if(as.FLQuants)
+  if(as.FLQuants) {
+
+    rtn[, age := 'all']
+    rtn[qname == 'Recr', age := "0"]
+
     rtn <- as(rtn, 'FLQuants')
+  }
 
   return(rtn)
 }
 # }}}
-