R/nashS_HF.R

`nashS_HF` <-
function (modelled, measured, weigth=NA)

{

    #Returns the NS with high weight on high flows and low weight on
    #low flows
        #empirical cumul. density function
        t.ecdf <- ecdf(measured)
        #Probability to be below value
        t.weigth <- t.ecdf(measured)
        t.weigth <- t.weigth*weigth
        return(nashS(measured,modelled,weigth=t.weigth))

}

Try the tiger package in your browser

Any scripts or data that you put into this service are public.

tiger documentation built on May 2, 2019, 2:22 a.m.