为什么modulo的结果是R中的NaN？

Question

我使用以下算法

q=2
t=2
x<-c(0)
x[1]<-1
z<-(x[1]*t)%%69
x[2]<-(x[1]*t)%%69
while( x[q]!=x[1] )
{
  z<-z*t
  q=q+1
  x[q]<-z%%69
}

，结果如下

x
# [1]  1  2  4  8 16 32 64 59 49 29 58 47 25 50 31 62 55 41 13 26 52 35  1

表示该算法适用于t = 2.

当我使用t=7时，出现以下错误

  

while（x [q]！= x [1]）中的错误{：缺少需要TRUE / FALSE的值

因为新输入是

x[q]
# [1] NaN
z
# [1] Inf

另外，我有这样的警告：

  

1：模数准确度可能完全丧失。

问题出在哪里？