# \donttest{
# 1. Import and Process
img_obj_list <- system.file("extdata",package = "BioThermR")
img_list <- read_thermal_batch(img_obj_list)
img_list <- lapply(img_list, analyze_thermal_stats)
# 2. Compile Results
df_results <- compile_batch_stats(img_list)
# }
Run the code above in your browser using DataLab