# \donttest{
datamatrix <- matrix(
c(5, 6, 7,
6, 7, 8,
7, 8, 9,
8, 9, 10,
9, 8, 7,
8, 7, 6,
7, 6, 5,
6, 5, 4),
nrow = 8,
byrow = TRUE,
dimnames = list(as.character(1:8), c("s1", "s2", "s3"))
)
metadata <- data.frame(
class = c("A", "A", "B"),
row.names = c("s1", "s2", "s3")
)
dataset <- list(
data = datamatrix,
metadata = metadata,
description = "toy spectra",
labels = list(x = "ppm", val = "intensity")
)
corrected <- try(
baseline_correction(dataset, method = "modpolyfit"),
silent = TRUE
)
corrected
# }
Run the code above in your browser using DataLab