Мне нужно серого изображения папки, но в этой папке много изображений

Question

Мне нужно настроить шкалу серого для папки с изображениями, но в этой папке много изображений.И единственный способ, который я нашел до сих пор, это делать один за другим.Я набрал этот код:

FILES <- list.files(files, pattern=".jpg",all.files =TRUE, full.names=TRUE, no.. = TRUE)
im<- list(FILES)
for (i in 1:length(FILES))
{
  im[[i]] <- load.image(FILES[i])
}

#list the images
print(im[[i]])

#Processing the image 

gray.im<-grayscale(im[[7]])

plot(im[[7]])%>%
  plot(gray.im)%>%
  par(mfrow=c(1,2))

par(mfrow=c(1,2))

threshold(gray.im,"60%") %>% plot
threshold(gray.im,"65%") %>% plot
a<-threshold(gray.im,"78%") %>% plot

Но этот код не работал, поэтому я пытаюсь создать функцию, которая делает то же самое, но тоже не работает.

grayimage <- function(gray) {

  for (j in 1:length(im) )

    gray.im[[j]] <- grayscale(im)

  print (gray.im[j])
  plot(gray.im[j])
}