From a5142344526ebeb1463b61cec5a1b684ea17d8c3 Mon Sep 17 00:00:00 2001
From: Dorchies David <david.dorchies@inrae.fr>
Date: Thu, 29 Jul 2021 17:17:32 +0200
Subject: [PATCH] feat(RunModel_Lag): add "SD" class to OutputsModel

- For detection of number of parameters in regularisation

Refs #111
---
 R/RunModel_Lag.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/RunModel_Lag.R b/R/RunModel_Lag.R
index e6b8fe56..63c99bcb 100644
--- 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)
 }
-- 
GitLab