Epoch the ETG-4000 data

Epoch the ETG-4000 data

epoch_ETG4000_average(x, start_epoch, end_epoch)

Arguments

x

A data frame with an ETG-4000 data.
start_epoch

A numeric. Number of samples before the trigger. Start of the epoch. The same as in epoch_ETG4000().
end_epoch

A numeric. Number of samples after the trigger. End of the epoch. The same as in epoch_ETG4000().

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) # use to explore the epoch quality
df_epochs_average <- epoch_ETG4000_average(df_epochs, -100, 100)