Как получить ограничивающий прямоугольник 16 * 16 на изображении 256 * 256

Question

У меня матрица 256 * 256, я преобразовал ее в 256 блоков по 16 * 16. Теперь задача состоит в том, чтобы поместить 16 * 16 (256 блоков), ограничивающих изображение, чтобы я мог узнать, в какомзаблокировать конкретный объект лжи.

У меня есть код, чтобы получить 256 блоков из изображения. Я не знаю, как действовать дальше?

код:

filenames <- list.files("C:/Users/Desktop/imag", pattern = "*.jpeg", full.names = TRUE)
list.files(pattern=".jpg$")
result={}
for (i in 1:length(filenames)){
  x <- readJPEG(filenames[1])
  x= rgb_2gray(x)
  x <- resize(x, w = 256, h = 256)
  matsplitter<-function(M, r, c) {
    rg <- (row(M)-1)%/%r+1
    cg <- (col(M)-1)%/%c+1
    rci <- (rg-1)*max(cg) + cg
    N <- prod(dim(M))/r/c
    cv <- unlist(lapply(1:N, function(x) M[rci==x]))
    dim(cv)<-c(r,c,N)
    cv
  } 
  asa <-matsplitter(x,16,16) 
asa
result={}
y=c()
for (i in 1:length(asa[16,16,])) {
  y <- (as.vector(t(asa[,,i])))
  result <- data.frame(rbind(result,y))
}
result