Get integrals with metadata from integrate peak positions

get_integration_with_metadata(integration_object)

Arguments

integration_object

A nmr_dataset object

Value

Get integrals with metadata from integrate peak positions

integration dataframe

Examples

peak_table <- matrix(1:6, nrow = 2, ncol = 3)
rownames(peak_table) <- c("10", "20")
colnames(peak_table) <- c("ppm_1.2", "ppm1.4", "ppm1.6")

dataset <- new_nmr_dataset_peak_table(
    peak_table = peak_table,
    metadata = list(external = data.frame(NMRExperiment = c("10", "20"), Condition = c("A", "B")))
)
get_integration_with_metadata(dataset)
#> # A tibble: 2 × 5
#>   NMRExperiment Condition ppm_1.2 ppm1.4 ppm1.6
#>   <chr>         <chr>       <int>  <int>  <int>
#> 1 10            A               1      3      5
#> 2 20            B               2      4      6