judge the values crossing zero

I would like to judge the ranges of min and max values cross zero (0 = crossing zero, 1 = not crossing zero).

min <- c(0, -1, -1, 1, 1)
max <- c(1, 1, -0.1, 3, 1.5)
answer <- c(0, 0, 1, 1, 1)
data <- cbind(min,max, answer)

>Solution :

You can use the between function from dplyr:

library(dplyr)
min <- c(0, -1, -1, 1, 1)
max <- c(1, 1, -0.1, 3, 1.5)
df1 = data.frame(min,max) %>% 
  rowwise() %>% 
  mutate(answer = as.numeric(!between(0,min,max))) 

Or using base R:

df1 = data.frame(min,max)
df1$answer = apply(df1, 1, function(x) as.numeric(!(x[1]<= 0 & x[2] >=0)))