# NOT RUN {
e1 <- list("c" = c(1,1), "P" = matrix(c(3,1,1,2), ncol = 2), "r" = 2)
e2 <- list("c" = c(0,2), "S" = matrix(c(4,1,1,1), ncol = 2), "r" = 3)
is_feasible_point(c(1.1,0.9), e1)
is_feasible_point(c(1,0), list(e1, e2))
# }
Run the code above in your browser using DataLab