imagefluency package is not working about imagefluency HOT 3 CLOSED

library(imagefluency)

# make sure that the folder `example_images` is a subfolder of your current working directory
# to check the current working directory, use `getwd()`
# to change the current working directory, use `setwd()`
dir.exists("example_images/")

# define image list
imglist <- c("high_1.jpg", "high_2.jpg", "high_3.jpg", "high_4.jpg", "high_5.jpg", "high_6.jpg")

for (i in imglist) {
  # read image (file path is constructed with `paste0()`)
  img <- img_read(paste0("example_images/", i))
  
  # calculate and print scores
  print(data.frame(
    img_complexity(img),
    img_contrast(img),
    mean(rgb2gray(img)),
    img_self_similarity(img))
  )
}

# here, we only search for images with the extension .jpg
imglist <- list.files("example_images", pattern = '*.jpg$', full.names = TRUE)

for (i in imglist) {
  # read image
  img <- img_read(i)
  
  # calculate and print scores
  print(data.frame(
    img_complexity(img),
    img_contrast(img),
    mean(rgb2gray(img)),
    img_self_similarity(img))
  )
}

imglist <- list.files("example_images", pattern = '*.jpg$', full.names = TRUE)

# data frame to store results 
results <- data.frame(filename = basename(imglist),
                      complexity = NA, contrast = NA,
                      mean = NA, selfsimilarity = NA)

# loop
for(i in seq_along(imglist)){
  # print loop info
  print(paste('** Estimating scores for image',i,'**'))
  
  # 1. read image into R
  img <- img_read(imglist[i])
  
  # 2. estimate scores and store the results
  results$complexity[i] <- img_complexity(img)
  results$contrast[i] <- img_contrast(img)
  results$mean[i] <- mean(rgb2gray(img))
  results$selfsimilarity[i] <- img_self_similarity(img)
}

# print data frame
print(results)