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)
}
哪里有问题啊？
R语言处理矩阵问题？
模模糊糊理解你的目的是找出矩阵中“1”的位置
which(y == 1, arr.ind=TRUE)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)
}
哪里有问题啊？
模模糊糊理解你的目的是找出矩阵中“1”的位置
which(y == 1, arr.ind=TRUE)