R 使用while循环时缺少值

对于这个简单的问题，我提前表示歉意，但我已经有一段时间没有找到解决方案了。 我试图找到f0和f1的最小公倍数。 这是我的密码：

f0 = 200
f1 = 300

a = f0
b = f1
r = 0

while (a!=b) {
r = a %% b
a = b
b = r
}

由此，我得到：

Error in while (a != b) { : missing value where TRUE/FALSE needed

---

因为在第二次迭代之后r=NaN

100 = 300 %% 200
0 = 200 %% 100
NaN = 100 %% 0

---

library（schoolmath）

有一个计算最小公倍数的

scm

函数和计算最大公分母的

gcd

函数。您应该养成使用的习惯谢谢您的评论！学校数学软件包满足了我的需要。