split <- function(x, f) .Internal(split(x, as.factor(f)))
