Я загрузил выборочное количество изображений
Это все файлы импорта и библиотеки
install.packages("dplyr")
install.packages("BiocManager")
BiocManager::install("EBImage")
install.packages("EBImage")
install.packages("keras")
install.packages("devtools")
devtools::install_github("rstudio/keras")
library(EBImage)
library(keras)
library(dplyr)
library(jpeg)
Я прочитал в CSV-файле
ClassifyLeison = read.csv('C:\\Users\\user\\Documents\\Final Year Proj\\DATA\\ISIC_2019_Training_GroundTruth.csv', sep=",")
I создал скрипт для фильтрации пустых значений в CSV-файле
MelanomaRead <- ClassifyLeison[1:2]
MelanomaRead <- filter(MelanomaRead, MEL == 1 )
MelanomaImages <- list()
Я прочитал отфильтрованные изображения, которые соответствуют фрейму данных, созданному выше
for(image in MelanomaRead$image){
MelanomaImages[[image]] <- readJPEG(paste0("C:\\Users\\user\\Documents\\Final Year Proj\\DATA\\ISIC_2019_Training_Input", "/", image,".jpg"))
}
И теперь мне нужно найти способ изменить размеры этих изображений автоматически. У меня есть этот скрипт ниже, но он просит меня указать хотя бы одно имя файла. Я думаю, что этот скрипт работает только с вручную введенными изображениями
train <- list()
for (i in 1:474) {train[[i]] <- readImage(MelanomaImages[i])}