Define the first function

7. Define the function in the new file.

strsplit1 <- function(x, split) {
  strsplit(x, split = split)[[1]]
}