tweaks to max_est function, example of random test point is now ggplot2