Commit eaeff017 authored by Dorchies David's avatar Dorchies David
Browse files

test(calibration): fix issue wrong parameter on CemaNeigGR4H with hysteresis

Refs #120
parent 7a97389c
Pipeline #23646 passed with stages
in 32 minutes and 29 seconds
...@@ -17,7 +17,7 @@ sModels <- c( ...@@ -17,7 +17,7 @@ sModels <- c(
"GR5H FALSE L0123003 NA 804.0021672;-0.1898488;137.7524699;3.0436628;0.1951163", "GR5H FALSE L0123003 NA 804.0021672;-0.1898488;137.7524699;3.0436628;0.1951163",
"CemaNeigeGR4H FALSE L0123003 NA 1.595685e+03;-8.183484e-01;2.320697e+02;5.000000e-01;5.005005e-04;9.342369e+01", "CemaNeigeGR4H FALSE L0123003 NA 1.595685e+03;-8.183484e-01;2.320697e+02;5.000000e-01;5.005005e-04;9.342369e+01",
"CemaNeigeGR5H FALSE L0123003 NA 33.34921883;-4.98925432;332.00673122;1.58534106;0.20792716;0.02214393;4.28498513", "CemaNeigeGR5H FALSE L0123003 NA 33.34921883;-4.98925432;332.00673122;1.58534106;0.20792716;0.02214393;4.28498513",
"CemaNeigeGR4H TRUE L0123003 NA 1.766316e+03;-6.920667e-01;2.192034e+02;3.451688e+00;5.005005e-0;4.869585e+01;1.111447e+0;5.064090e-01", "CemaNeigeGR4H TRUE L0123003 NA 1.766316e+03;-6.920667e-01;2.192034e+02;3.451688e+00;5.005005e-04;4.869585e+01;1.111447e+01;5.064090e-01",
"CemaNeigeGR5H TRUE L0123003 NA 66.6863310;-1.4558128;138.3795123;2.6499450;0.2325000;0.0000000;0.3017014;48.4000000;0.9914915" "CemaNeigeGR5H TRUE L0123003 NA 66.6863310;-1.4558128;138.3795123;2.6499450;0.2325000;0.0000000;0.3017014;48.4000000;0.9914915"
) )
dfModels <- read.table(text = paste(sModels, collapse = "\n"), header = TRUE) dfModels <- read.table(text = paste(sModels, collapse = "\n"), header = TRUE)
...@@ -106,7 +106,7 @@ ModelCalibration <- function(model) { ...@@ -106,7 +106,7 @@ ModelCalibration <- function(model) {
TestModelCalibration <- function(model) { TestModelCalibration <- function(model) {
model <- as.list(model) model <- as.list(model)
test_that(paste(model$name, "works"), { test_that(paste(model$name, ifelse(as.logical(model$IsHyst), "Hysteresis", ""), "works"), {
skip_on_cran() skip_on_cran()
ParamFinalR <- ModelCalibration(model) ParamFinalR <- ModelCalibration(model)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment