如何在256 * 256的图像上获得16 * 16的边界框

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