R语言vapply()