data("CitrobacterRKIspectra", "CitrobacterRKImetadata", package = "MSclassifR")
spectra <- SignalProcessing(CitrobacterRKIspectra)
peaks <- MSclassifR::PeakDetection(x = spectra, averageMassSpec = FALSE)
labels <- CitrobacterRKImetadata$Species # adjust to your label column
xy <- build_XY_from_peaks(peaks, labels, normalize = "max", sparse = TRUE)
Run the code above in your browser using DataLab