如何在我的函数中定义这些术语

Question

我正在尝试创建一个函数GP（x）= N *（FMR /（ED * AE）），其中x表示一年中的天数（从1到365）。

我的问题是，当x

Answer 1

您可以使用if / else子句，也可以使用ifelse()使FMR和N的值以x为条件

GP <- function (x,ED,AE){
    # option 1, use an if/else clause
    if(x < 100)
        FMR = 10
    else 
        FMR = 20
    # option 2: use ifelse()
    N = ifelse(x < 100,10,20)

    return(  N*(FMR/(ED*AE)) ) 
}