Epoch the ETG-4000 data

Epoch the ETG-4000 data

epoch_ETG4000(x, trigger, start_epoch, end_epoch)

Arguments

x	A data frame with an ETG-4000 data.
trigger	A code used to represent a trigger, e.g. 1.
start_epoch	A numeric. Number of samples before the trigger. Start of the epoch.
end_epoch	A numeric. Number of samples after the trigger. End of the epoch.

Value

A data frame.

Examples

file_path <- system.file("extdata", "Hitachi_ETG4000_24Ch_Total.csv", package = "fnirsr")
ETG_header <- load_ETG4000_header(file_path)
rawData <- load_ETG4000_data(file_path, ETG_header)

df_epochs <- epoch_ETG4000(rawData, 1, -100, 100)