eshinesimida findlinjie<-function(y){ runs<-NULL m<-nrow(y) n<-ncol(y) for(i in 1:m){ for(j in (i+1):n){ if(y[i,j]==1) runs<-c(runs,c(i,j)) } } return(runs) } 哪里有问题啊？
