format.nmr_dataset_peak_table {AlpsNMR} | R Documentation

## Format for nmr_dataset_peak_table

### Description

Format for nmr_dataset_peak_table

### Usage

    ## S3 method for class 'nmr_dataset_peak_table'
    format(x, ...)

### Arguments

`x` | an nmr_dataset_peak_table object
`...` | for future use

### Value

Format for nmr_dataset_peak_table

### See Also

Other nmr_dataset_peak_table functions: `[.nmr_dataset_peak_table()`, `is.nmr_dataset_peak_table()`, `load_and_save_functions`, `new_nmr_dataset_peak_table()`, `nmr_meta_add()`, `nmr_meta_export()`, `nmr_meta_get_column()`, `nmr_meta_get()`, `print.nmr_dataset_peak_table()`, `validate_nmr_dataset_peak_table()`

Other class helper functions: `format.nmr_dataset_1D()`, `format.nmr_dataset()`, `is.nmr_dataset_1D()`, `is.nmr_dataset_peak_table()`, `new_nmr_dataset_1D()`, `new_nmr_dataset_peak_table()`, `new_nmr_dataset()`, `print.nmr_dataset_1D()`, `print.nmr_dataset_peak_table()`, `print.nmr_dataset()`, `validate_nmr_dataset_family()`, `validate_nmr_dataset_peak_table()`, `validate_nmr_dataset()`

### Examples

    dir_to_demo_dataset <- system.file("dataset-demo", package = "AlpsNMR")
    dataset <- nmr_read_samples_dir(dir_to_demo_dataset)
    dataset_1D <- nmr_interpolate_1D(dataset, axis = c(min = -0.5, max = 10, by = 2.3E-4))
    meta <- file.path(dir_to_demo_dataset, "dummy_metadata.xlsx")
    metadata <- readxl::read_excel(meta, sheet = 1)
    dataset_1D <- nmr_meta_add(dataset_1D, metadata = metadata, by = "NMRExperiment")
    metadata <- list(external = dataset_1D[["metadata"]][["external"]])
    peak_table <- nmr_data(dataset_1D)
    new <- new_nmr_dataset_peak_table(peak_table, metadata)
    format(new)

[Package AlpsNMR version 3.0.6 Index]