如何在R中编写具有多个条件的有效函数

Question

I am writing an R function to carry out this operation

I am particularly wondering the best way to deal with the 2nd condition.
I am currently using if statements within a function; the 2nd condition is dealt with using a nested if statement. I am curious if this is the best (fastest, most elegant) way to deal with this type of mathematical functions.

#Parameters
K.bc <- 10;K.bk<-100
W2.fg <- W2.fp <- 1000


#Function
F.2.sink <- function(K.bc, K.bk, W2.fg,W2.fp){ 
  if(W2.fg + W2.fg < K.bc) 
  {return(0)}

  if(K.bc < (W2.fg + W2.fg)) 
    if( W2.fg + W2.fg < (K.bc+K.bk))
       {return(W2.fg + W2.fp - K.bc)}

  if(W2.fg + W2.fp >= (K.bc+K.bk))
  {return(K.bk)}
}

F.2.sink(K.bc,K.bk,W2.fg,W2.fp)

Answer 1

看看： R中的Case语句等效 memisc包中有此函数cases 。不确定是否memisc ，但至少更具可读性。