# NOT RUN {
my_polygon <- data.frame(c(1, 2, 3, 4, 3),
c(1, 0, .5, 3, 4))
points_to_test <- list(c(0, 0), c(2.5, 1), c(3.5, 4))
unlist(lapply(points_to_test, is_point_inside, my_polygon))
# }
Run the code above in your browser using DataLab