Pick points at random, then use a general-purpose optimization method (the optim function in R) to find local maxima. I don’t claim this is a good way to do it.