# \donttest{
# Load raw data
img_obj <- system.file("extdata", "C05.raw", package = "BioThermR")
img <- read_thermal_raw(img_obj)
# Apply automated segmentation
img <- roi_segment_ebimage(img, keep_largest = TRUE)
# 3d plot
plot_thermal_3d(img)
# }
Run the code above in your browser using DataLab