Commit d7ae1da7 authored by unknown's avatar unknown
Browse files

v1.0.6.4 DataAltiExtrapolation_Valery code improved #4521

parent f282b5ae
Package: airGR Package: airGR
Type: Package Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.0.6.3 Version: 1.0.6.4
Date: 2017-04-05 Date: 2017-04-05
Authors@R: c( Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl")), person("Laurent", "Coron", role = c("aut", "trl")),
......
...@@ -453,8 +453,7 @@ DataAltiExtrapolation_Valery <- function(DatesR, ...@@ -453,8 +453,7 @@ DataAltiExtrapolation_Valery <- function(DatesR,
LayerPrecip_df <- LayerPrecip_df / rowMeans(LayerPrecip_df) * Precip LayerPrecip_df <- LayerPrecip_df / rowMeans(LayerPrecip_df) * Precip
LayerPrecip_df[is.nan(LayerPrecip_df)] <- 0 LayerPrecip_df[is.nan(LayerPrecip_df)] <- 0
} }
LayerPrecip <- LayerPrecip <- as.list(LayerPrecip_df)
lapply(seq_len(ncol(LayerPrecip_df)), function(x) LayerPrecip_df[, x])
} }
......
...@@ -65,7 +65,7 @@ ErrorCrit_KGE2 <- function(InputsCrit,OutputsModel, warnings = TRUE, verbose = T ...@@ -65,7 +65,7 @@ ErrorCrit_KGE2 <- function(InputsCrit,OutputsModel, warnings = TRUE, verbose = T
if(is.numeric(Crit) & is.finite(Crit)){ SubCritValues[iCrit] <- Crit; } if(is.numeric(Crit) & is.finite(Crit)){ SubCritValues[iCrit] <- Crit; }
##SubErrorCrit_____KGE_gama______________________ ##SubErrorCrit_____KGE_gamma______________________
iCrit <- iCrit+1; iCrit <- iCrit+1;
SubCritNames[iCrit] <- paste(CritName," cv(sim)/cv(obs) =", sep = "") SubCritNames[iCrit] <- paste(CritName," cv(sim)/cv(obs) =", sep = "")
SubCritValues[iCrit] <- NA; SubCritValues[iCrit] <- NA;
......
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