library(MetCorR)
# load example data shipped with the package
data(example_intensity, package = "MetCorR")
data(example_meta, package = "MetCorR")
# run correction (method = 2 uses both run order and batch)
out <- MetCorR(
method = 2,
int_data = example_intensity,
order = example_meta$order,
class = example_meta$class,
batch = example_meta$batch,
qc_label = "QC"
)
#>
#> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#> .--. ,--. ,--. ,-----. ,------.
#> | '.' | .---. .-' '-.' .--.; .---. ,--.--.| .--. '
#> | |'.'| || .-. :'-. .-'| | | .-. || .--'| '--'.'
#> | | | || ---. | | | '--.;' '-' '| | | |. .
#> '--' '--' `----' '--' '-----' '---' '--' '--' '--'
#> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#>
#> Method 2 has been selected
#> Used formula: y ~ s(order, batch)
#>
