Swirl R lapply & sapply