# This script will copy a couple example photos from the input directory to the output directory

library("Matrix")
library("jpeg")
library("raster")
library("colorspace")
library(readr)
library("e1071")
library("irlba")
library("xgboost")
library("rgl")

train_photo_to_biz_ids <- read_csv("../input/train_photo_to_biz_ids.csv")
train<-read_csv("../input/train.csv")
train_photo_to_biz_ids<-train_photo_to_biz_ids[order(train$business_id),]
n<- nrow(train_photo_to_biz_ids)
print(n)
print(nrow(train))

image_list<-list()
indices<-sample(nrow(train),200)
for (i in seq_along(indices)) {
     cmd <- paste0("../input/train_photos/", 
     train_photo_to_biz_ids$photo_id[i],
    ".jpg")
     image_list[[i]]<-readJPEG(cmd)
     
}
image_list