R新手正在运行老师给的代码，实在不知道这个报错是什么意思，求大佬帮忙。

data<-read.csv("/Users/parezhatiwumaier/Downloads/R/data.csv",header=F)

k=3
p<-5
p=ncol(data)
pmatrix<-matrix(nrow=2^p,ncol=p)
for (i in 1:p){
  c<-rep(1,2^(p-i))
  d<-rep(0,2^(p-i))
  e<-cbind(t(c),t(d))
  pmatrix[,i]=rep(t(e),2^(i-1))
}

sum1<-0
sum2<-1000
for (i in 1:(2^p-2)){
  for(j in (i+1):(2^p-1)){
    for (l in (j+1): 2^p){
      for (num in 1:nrow(data)){
        sum1<-sum1+min(p-sum(pmatrix[i,]==data[num,]),p-sum(pmatrix[j,]==data[num,]), p-
                         sum(pmatrix[l,]==data[num,]))
      }
      sum1<-0
    }
  }
}

* Error in 1:(2^p - 2) : argument of length 0