focal_refine function

Refine summary likelihood profile in focal parameter values