Matlab imgae 파일 R로 불러들이기

# install.packages("R.matlab")

library(R.matlab)

library(jpeg)

setwd("D:\\Train_image_input") ## matlab 파일경로

file<-list.files()

train_list<-list()

for(j in 1:length(file)){

setwd("D:\\Train_image_input") 

data<-readMat(file[j])

dim(data)

realdata<-(data$im.u)

train_list[[j]]<-realdata ## 리스트에 저장

setwd("D:\\Train_image_jpg") ## 이미지를 저장할 경로

writeJPEG(realdata,paste0("im",j,".jpg")) ## 이미지 저장.

cat("\n",j)

}

setwd("D:\\")

save(train_list,file="train_list.RData") ## 리스트 R파일로 저장