sample.list <- list(
s1 = data.frame(ppm = c(1.0, 2.0), int = c(10, 20)),
s2 = data.frame(ppm = c(1.0, 3.0), int = c(15, 30))
)
metadata <- data.frame(class = c("A", "B"), row.names = c("s1", "s2"))
dataset <- dataset_from_peaks(sample.list, metadata = metadata)
class(dataset)
Run the code above in your browser using DataLab