R concave hull work