Skip to content

Commit

Permalink
minor formatting
Browse files Browse the repository at this point in the history
  • Loading branch information
@hzambran
hzambran committed May 8, 2024
1 parent 1a07451 commit 58a678e
Show file tree
Hide file tree
Showing 3 changed files with 19 additions and 13 deletions.
2 changes: 1 addition & 1 deletion R/HFB.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -6,7 +6,7 @@
# Distributed under GPL 2 or later

################################################################################
# 'HFB': Median Annual high flow bias #
# 'HFB': median annual High Flow Bias #
################################################################################
# Author : Mauricio Zambrano-Bigiarini #
################################################################################
Expand Down
14 changes: 9 additions & 5 deletions R/KGElf.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -12,7 +12,8 @@
################################################################################
# Started: 2017 #
# Updates: 07-Jul-2022 ; 11-Jul-2022 ;12-Jul-2022 #
# Updates: 15-Jan-2023 ; 16-Jan-2023 #
# Updates: 15-Jan-2023 ; 16-Jan-2023 #
# 08-May-2024 #
################################################################################
# The optimal value of KGElf is 1

Expand All @@ -30,7 +31,7 @@ KGElf <- function(sim, obs, ...) UseMethod("KGElf")

# epsilon: By default it is set at one hundredth of the mean flow. See Pushpalatha et al. (2012)
KGElf.default <- function(sim, obs, s=c(1,1,1), na.rm=TRUE,
method=c("2009", "2012"),
method=c("2009", "2012", "2021"),
epsilon.type=c("Pushpalatha2012", "otherFactor", "otherValue", "none"),
epsilon.value=NA, ...) {

Expand Down Expand Up @@ -61,9 +62,10 @@ KGElf.default <- function(sim, obs, s=c(1,1,1), na.rm=TRUE,
################################################################################
# Started: 12-Jul-2022 #
# Updates: 15-Jan-2023 ; 16-Jan-2023 #
# 08-May-2024 #
################################################################################
KGElf.matrix <- function(sim, obs, s=c(1,1,1), na.rm=TRUE,
method=c("2009", "2012"),
method=c("2009", "2012", "2021"),
epsilon.type=c("Pushpalatha2012", "otherFactor", "otherValue", "none"),
epsilon.value=NA, ...) {

Expand Down Expand Up @@ -107,9 +109,10 @@ KGElf.matrix <- function(sim, obs, s=c(1,1,1), na.rm=TRUE,
################################################################################
# Started: 12-Jul-2022 #
# Updates: 15-Jan-2023 ; 16-Jan-2023 #
# 08-May-2024 #
################################################################################
KGElf.data.frame <- function(sim, obs, s=c(1,1,1), na.rm=TRUE,
method=c("2009", "2012"),
method=c("2009", "2012", "2021"),
epsilon.type=c("Pushpalatha2012", "otherFactor", "otherValue", "none"),
epsilon.value=NA, ...) {

Expand All @@ -130,9 +133,10 @@ KGElf.data.frame <- function(sim, obs, s=c(1,1,1), na.rm=TRUE,
################################################################################
# Started: 12-Jul-2022 #
# Updates: 15-Jan-2023 ; 16-Jan-2023 #
# 08-May-2024 #
################################################################################
KGElf.zoo <- function(sim, obs, s=c(1,1,1), na.rm=TRUE,
method=c("2009", "2012"),
method=c("2009", "2012", "2021"),
epsilon.type=c("Pushpalatha2012", "otherFactor", "otherValue", "none"),
epsilon.value=NA, ...) {

Expand Down
16 changes: 9 additions & 7 deletions R/sKGE.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -13,7 +13,7 @@
# Started: 12-Jul-2022 #
# Updates: 13-Jul-2022 ; 14-Jul-2022 #
# 16-Jan-2023 #
# 06-May-2024 #
# 06-May-2024 ; 08-May-2024 #
################################################################################
# The optimal value of sKGE is 1

Expand All @@ -27,7 +27,7 @@ sKGE <- function(sim, obs, ...) UseMethod("sKGE")

# epsilon: By default it is set at one hundredth of the mean flow. See Pushpalatha et al. (2012)
sKGE.default <- function(sim, obs, s=c(1,1,1), na.rm=TRUE,
method=c("2009", "2012"),
method=c("2009", "2012", "2021"),
start.month=1, out.PerYear=FALSE,
fun=NULL,
...,
Expand All @@ -36,7 +36,7 @@ sKGE.default <- function(sim, obs, s=c(1,1,1), na.rm=TRUE,
) {

lKGE <- function(i, lsim, lobs, s=c(1,1,1), na.rm=TRUE,
method=c("2009", "2012"), out.type="single",
method=c("2009", "2012", "2021"), out.type="single",
fun1=NULL,
...,
epsilon.type=c("none", "Pushpalatha2012", "otherFactor", "otherValue"),
Expand Down Expand Up @@ -137,10 +137,10 @@ sKGE.default <- function(sim, obs, s=c(1,1,1), na.rm=TRUE,
# Started: 12-Jul-2022 #
# Updates: 14-Jul-2022 #
# 16-Jan-2023 #
# 06-May-2024 #
# 06-May-2024 ; 08-May-2024 #
################################################################################
sKGE.matrix <- function(sim, obs, s=c(1,1,1), na.rm=TRUE,
method=c("2009", "2012"),
method=c("2009", "2012", "2021"),
start.month=1, out.PerYear=FALSE,
fun=NULL,
...,
Expand Down Expand Up @@ -219,9 +219,10 @@ sKGE.matrix <- function(sim, obs, s=c(1,1,1), na.rm=TRUE,
# Started: 12-Jul-2022 #
# Updates: 14-Jul-2022 #
# 16-Jan-2023 #
# 08-May-2024 #
################################################################################
sKGE.data.frame <- function(sim, obs, s=c(1,1,1), na.rm=TRUE,
method=c("2009", "2012"),
method=c("2009", "2012", "2021"),
start.month=1, out.PerYear=FALSE,
fun=NULL,
...,
Expand All @@ -247,9 +248,10 @@ sKGE.data.frame <- function(sim, obs, s=c(1,1,1), na.rm=TRUE,
# Started: 12-Jul-2022 #
# Updates: 14-Jul-2022 #
# 16-Jan-2023 #
# 08-May-2024 #
################################################################################
sKGE.zoo <- function(sim, obs, s=c(1,1,1), na.rm=TRUE,
method=c("2009", "2012"),
method=c("2009", "2012", "2021"),
start.month=1, out.PerYear=FALSE,
fun=NULL,
...,
Expand Down

0 comments on commit 58a678e

Please sign in to comment.