Create an mNIRS Dataframe with Metadata

Manually add class "mNIRS.data" and metadata to an existing dataframe.

Usage

create_mNIRS_data(data, metadata)

Arguments

data

A dataframe.

metadata

Metadata passed along with the dataframe.

• nirs_device

• nirs_columns

• sample_column

• event_column

• sample_rate

• event_sample_list

• fit_window

• display_window

• end_kinetics_window

Value

A tibble of class mNIRS.data with metadata available with attributes().

Examples

## currently implemented metadata
metadata <- list(nirs_device = NULL,
                 nirs_columns = NULL,
                 sample_column = NULL,
                 event_column = NULL,
                 sample_rate = NULL,
                 event_sample_list = NULL,
                 fit_window = NULL,
                 display_window = NULL,
                 end_kinetics_window = NULL)

df <- data.frame(A = 1:3,
                 B = seq(10, 30, 10),
                 C = seq(11, 33, 11))
attributes(df)
#> $names
#> [1] "A" "B" "C"
#> 
#> $class
#> [1] "data.frame"
#> 
#> $row.names
#> [1] 1 2 3
#> 

nirs_data <- create_mNIRS_data(
    df,
    metadata = list(nirs_columns = c("B", "C"),
                    sample_column = "A",
                    sample_rate = 1)
)
attributes(nirs_data)
#> $class
#> [1] "mNIRS.data" "tbl_df"     "tbl"        "data.frame"
#> 
#> $row.names
#> [1] 1 2 3
#> 
#> $names
#> [1] "A" "B" "C"
#> 
#> $nirs_columns
#> [1] "B" "C"
#> 
#> $sample_column
#> [1] "A"
#> 
#> $sample_rate
#> [1] 1
#>