#------------------------------
# library
#------------------------------

library(jpeg)
library(dplyr)
library(utils)

#------------------------------
# main
#------------------------------

# source_dir <- file.path("..", "dataset", "Train")
source_dir <- file.path("..", "input", "Train")

train <- read.csv(file.path(source_dir, "train.csv"))
width <- c()

# measure image size ----------

p <- txtProgressBar(min = 1, max = nrow(train), width = 100, style = 3)

for(id in train$train_id){

	# cat(paste0(id, ".jpg", "\n"))
	setTxtProgressBar(p, id+1) 

	img <- readJPEG(file.path(source_dir, paste0(id, ".jpg")))
	width <- c(width, nrow(img))

}

close(p)

# merge result ----------

train$width <- width

# display summary ----------

types <- c("adult_males", "subadult_males", "adult_females", "juveniles", "pups")

for(type in types){

	cat("===============", type, "===============\n")

	g1 <- train[,type][train$width == 3328]
	g2 <- train[,type][train$width == 3744]

	cat("3328\n")
	print(summary(g1))

	cat("3744\n")
	print(summary(g2))
}