sample2 <- function(x) {sample(x, 2)}

stringFunction <- function(x) {format(max(x))}