R语言16-符合逻辑/自定义函数/循环/条件语句