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