feat(RunModel_Lag): add "SD" class to OutputsModel

- For detection of number of parameters in regularisation Refs #111

feat(RunModel_Lag): add "SD" class to OutputsModel
- For detection of number of parameters in regularisation Refs #111
a5142344 · Dorchies David · 7fdd08de · a5142344
Commit a5142344 authored 3 years ago by Dorchies David
Hide whitespace changes
Inline Side-by-side

Showing

with 2 additions and 0 deletions
+2 -0
--- a/R/RunModel_Lag.R
+++ b/R/RunModel_Lag.R
@@ -163,5 +163,7 @@ RunModel_Lag <- function(InputsModel, RunOptions, Param, QcontribDown) {
    OutputsModel$Param <- c(Param, OutputsModel$Param)
  }
+  class(OutputsModel) <- c(class(OutputsModel), "SD")
  return(OutputsModel)
 }