里面的 if-else 语句 apply function R

Question

I am writing an apply function in R to search a table and return all the instances that TRUE occurs, and I have written the following code but it keeps giving me errors, and I am not sure why. Any help is appreciated.

xsum = apply(genomeTable, 1, function(i) {

    if (i) < q.start | if (i) > q.end{
      return FALSE

    } else{
      return TRUE
    }
  })

sum(xsum)

Answer 1

Your if statement is duplicated. You only need one if for the condition. Parenthesis need to wrap the whole condition. Try this:

xsum = apply(genomeTable, 1, function(i) {
  if (i < q.start | i > q.end) {
    return(FALSE)
  } else {
    return(TRUE)
  }
})

Answer 2

Try this:

xsum = apply(genomeTable, 1, function(i) ifelse ((i < q.sta | i > q.end), FALSE, TRUE)) 

It does not work, please provide some data.