set log devs estimation to true

vignettes/fims-demo.Rmd

@@ -277,12 +277,13 @@ recruitment$log_devs <- new(ParameterVector, c(
 In order to estimate *log_devs*, a new distribution needs to be created. This will be left commented out as we will proceed with not estimating log_devs.
 
 ```{r recruitment-distribution}
-# recruitment_distribution <- new(TMBDnormDistribution)
-# recruitment_distribution$log_sd <- new(ParameterVector, 1)
-# recruitment_distribution$log_sd[1]$value <- log(0.4)
-# recruitment_distribution$log_sd[1]$estimated = FALSE
-# recruitment_distribution$set_distribution_links("random_effects", recruitment$log_devs$get_id())
-recruitment$estimate_log_devs = FALSE
+recruitment_distribution <- new(TMBDnormDistribution)
+recruitment_distribution$log_sd <- new(ParameterVector, 1)
+recruitment_distribution$log_sd[1]$value <- log(0.4)
+recruitment_distribution$log_sd[1]$estimated = FALSE
+recruitment_distribution$expected_values <- new(ParameterVector, 0, 1)
+recruitment_distribution$set_distribution_links("random_effects", recruitment$log_devs$get_id())
+recruitment$estimate_log_devs = TRUE
 ```
 
 #### Growth