trabajo, aplicación de las funciones vectoriales en R