Epoch the ETG-4000 data
epoch_ETG4000_average(x, start_epoch, end_epoch)
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(). |
A data frame.
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)