set.seed(123)
dataset = list(
data = matrix(
rnorm(100, mean = 10, sd = 2),
nrow = 10,
dimnames = list(
paste0("wavenumber", 1:10),
paste0("sample", 1:10)
)
)
)
corrected = airPLS_fast_dataset(
dataset,
lambda = 1e4,
max_iter = 5
)
range(corrected$data)
Run the code above in your browser using DataLab