x <- matrix(
c(1L, 1L, 0L,
1L, 1L, 0L,
0L, 1L, 1L),
nrow = 3,
ncol = 3,
byrow = TRUE
)
beadplexr:::count_neighbours(x)
x <- matrix(
c(TRUE, TRUE, FALSE,
TRUE, TRUE, FALSE,
FALSE, TRUE, TRUE),
nrow = 3,
ncol = 3,
byrow = TRUE
)
beadplexr:::count_neighbours(x)
x <- matrix(
c(1, 1, 0, 0,
1, 0, 0, 0,
0, 1, 1 ,1,
0, 1, 1, 1),
nrow = 4,
ncol = 4,
byrow = TRUE
)
beadplexr:::count_neighbours(x)
if (FALSE) {
x <- matrix(
c("1", "1", "0",
"1", "1", "0",
"0", "1", "1"),
nrow = 3,
ncol = 3,
byrow = TRUE
)
#beadplexr:::count_neighbours(x)
}
Run the code above in your browser using DataLab