我不知道这个方法有什么问题,输入矩阵很好,与其他方法一起工作,是正确的,但我得到一个错误:
矩阵误差[i, j] == 0 &矩阵[i, j + 1] == 0 &矩阵[i + 1, j] ==:non-conformable数组
checkToLeft<- function(matrix) {
counter <- 0
for(i in 1:(nrow(matrix))-1) {
for (j in 1:(ncol(matrix))-1) {
if(matrix[i,j]==0 & matrix[i,j+1]==0 & matrix[i+1,j]==255 & matrix[i+1,j+1]==255) {
counter <- counter + 1
}
}
}
return(counter)
}
右括号应为
1:(nrow(matrix)-1) # same for the ncol
不是
1:(nrow(matrix))-1