如何从给定数字的所有因子的向量中创建素因子向量？

Question

我已经使用 for 循环和 append function 生成了给定数字的因子列表，我知道不推荐这样做。

p<-13195
for(i in (p-1):1){
if ((p%%i)==0){
p<-append(p,i)
}
}

我现在正试图报告这个向量的最大素数，我使用了一个 for 循环来打印素数，这是相对简单的。 （我错过了 1，可以轻松添加，但我对该值不感兴趣。）

for (i in p){
if (sum(i/1:i==i%/%1:i)==2){
print(i)
}
}

但是，我只想打印最大的素数。 我已经尝试了几件事来做到这一点，但它们返回错误，例如

for (i in p){
 if (sum(i/1:i==i%/%1:i)==2){
 i<-append(1,i)
}
}

不工作。 另外，我对使用 append function 持谨慎态度。 我知道 R 没有针对循环进行优化，我正在努力发展我作为程序员的技能，所以我正在寻找循环的替代方案，但我不介意解决方案是什么。 理想情况下，我想要一个素数向量，以便我可以轻松应用

max()

谢谢你。

Answer 1

n<-c()
for (i in p){
    if (sum(i/1:i==i%/%1:i)==2){
        n=c(n,i)
    }
}

max<-max(n)