R中的感知器

Question

我对这个网站很新。我有一个关于感知器算法的问题，其中问题是“在R中实现感知器”。所以下面是我用两个（非常简单的）数据点做的。但是有些东西缺失了，我无法弄清楚是什么。有人可以帮忙吗？

z=c(1,2)
zz=c(-1,-2)
plot(z,zz)
zzz=c(2,3,4,-1)
z4=c(1,2,2,-1)
plot(zzz,z4)
p=function(zzz,z4,learning.rate=0.1,converge){
 w=c(rep(0,3))
  converged = FALSE
  while(converged==FALSE){
    converged = TRUE
    for(i in 1:length(z4)){
      if (zzz[i]%*%t(z4[i]) <= 0){
        t(w[i])= t(w[i])+learning.rate%*%t(x[i])
      }
    }
    converged = FALSE
  }  
}