质数发生器从2到100 in r

Question

有人可以帮我告诉我我的素数生成器不起作用的原因吗？：

d=0
primeno<- c(2:100)
for(i in primeno)
{
     for(j in 1:i)
      {
           if(j %% i == 0)
           d=d+1
      }
  if(d==2)
  print ("Prime")
  d=0
}

Answer 1

仅将索引(j %% i)转换为(i %% j)，数字是索引“ i”，除数是索引“ j”。

d=0
primeno<- c(2:100)
for(i in primeno)
{
  for(j in 1:i)
  {
    if(i %% j == 0)
      d=d+1
  }
  if(d==2)
    cat(i,"- Prime \n")
  d=0
}

Answer 2

现在，这可行：

one to many