# NOT RUN {
x <- mosaic_info(base::system.file("extdata/mosaic.dmt", package = "uFTIR"))
mosaic_sam(x, primpke, n_cores = 1)
y <- mosaic_compose(x@path, clusterlist = primpke@clusterlist)
summary_sam(y, clusternames = primpke@clusternames, smooth = FALSE, temporal = TRUE)
# }
Run the code above in your browser using DataLab