r语言求两个向量的外积