목차 1 R R expand <- function(s){ strsplit(s,"")[[1]] } expand <- function(s){ unlist(strsplit(s,"")) } expand <- function(s){ unlist(strsplit(s,NULL)) }