index_Sharples_DF: Sharples Fire Danger Index with drought factor.
In ozjimbob/ecbtools: Environmental Change Biology Tools

1	index_Sharples_DF(Temp, Wind, Dew, KBDI)

`Temp`
`Wind`
`Dew`
`KBDI`

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (Temp, Wind, Dew, KBDI) 
{
    humid <- calc_humid(Temp, Dew)
    FFI_list <- c()
    llength <- length(Temp)
    for (day in 1:llength) {
        FMI = 10 - 0.25 * (Temp[day] - humid[day])
        f = KBDI[day] * (max(Wind[day], 1)/FMI)
        FFI_list <- append(FFI_list, f)
    }
    FFI_list
  }