新人一枚求助关于循环的问题

零度咖啡不加糖

我想用一个简单的循环求出，2个人，3个人，到63个人生日在同一天的概率，并绘制图表
我的代码如下，不知道是哪里出错了，绘出的图上只有一个点。
P<-1
repeat{if(P>63)break else{print(P)<-P+1}}
{for (j in 1:63)
P<-P*(365-j)/365}
plot(1-P)

还请各位大神不吝赐教！