Minimizing discontinuous function in R

Question

I have a 600 x 500 Boolean array data, where the cells represent geographical 0.1\' x 0.1\' grid cells covering much of Europe. The