Commit 8d55eda0 authored by unknown's avatar unknown
Browse files

v1.0.6.7 DataAltiExtrapolation_Valery code improved (bug fixed) #4521

parent 8a62b29b
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.0.6.6
Version: 1.0.6.7
Date: 2017-04-05
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl")),
......
......@@ -450,10 +450,10 @@ DataAltiExtrapolation_Valery <- function(DatesR,
return(prcp)
})
if (PrecipScale) {
LayerPrecip_df <- LayerPrecip_df / rowMeans(LayerPrecip_df) * Precip
LayerPrecip_df[is.nan(LayerPrecip_df)] <- 0
LayerPrecip_mat <- LayerPrecip_df / rowMeans(LayerPrecip_df) * Precip
LayerPrecip_mat[is.nan(LayerPrecip_mat)] <- 0
}
LayerPrecip <- as.list(LayerPrecip_df)
LayerPrecip <- as.list(as.data.frame(LayerPrecip_mat))
}
......
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