R语言 最大公约数