List fixed and random effects in clear way...

... using new function `ThorsonUtilities::list_parameters`
James-Thorson-NOAA · Jul 9, 2017 · 0730c5e · 0730c5e
1 parent 51ac49c
commit 0730c5e
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/Build_TMB_Fn.R b/R/Build_TMB_Fn.R
@@ -146,8 +146,7 @@ function( TmbData, Version, Q_Config=TRUE, CovConfig=TRUE,
   Obj$env$inner.control$grad.tol <- c(1e-8,1e-12,1e-15)[ConvergeTol] # # Default : 1e-8  # Maximum gradient limit inner optimization
 
   # Print number of parameters
-  message("Number of fixed and random effects:")
-  print( table(names(Obj$env$last.par)) )
+  ThorsonUtilities::list_parameters( Obj )
 
   # Return stuff
   Return = list("Obj"=Obj, "Upper"=Bounds[,'Upper'], "Lower"=Bounds[,'Lower'], "Parameters"=Parameters, "Map"=Map, "Random"=Random)