set_names <- function (object = nm, nm) {
    names(object) <- nm
    object
}