index_MNI: Modified Nesterov Fire Danger Index.

Usage Arguments Examples

View source: R/fire_index_functions.r

Usage

1
index_MNI(DewPoint, Temperature, Rain)

Arguments

DewPoint
Temperature
Rain

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
##---- 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 (DewPoint, Temperature, Rain) 
{
    Deficit <- Temperature - DewPoint
    M <- 0
    M_list <- c()
    llength <- length(DewPoint)
    for (day in 1:llength) {
        if (Rain[day] > 3) {
            M <- 0
            M_list <- append(M_list, M)
            next
        }
        if (Temperature[day] > 0) {
            M <- M + (Temperature[day] * Deficit[day] * lookK(Rain[day]))
        }
        M_list <- append(M_list, M)
    }
    M_list
  }

ozjimbob/ecbtools documentation built on Jan. 18, 2021, 7:39 p.m.