profile <- function(fitted, ...) UseMethod("profile")