if( has_rave_subject("demo/DemoSubject") ) {
repository <- prepare_subject_with_epochs(
"demo/DemoSubject", electrodes = 14:16,
reference_name = "default", epoch_name = "auditory_onset",
time_windows = c(-1, 2))
print(repository)
head(repository$epoch$table)
electrodes <- repository$electrode_instances
# Channel 14
e <- electrodes$e_14
# referenced voltage
voltage <- e$load_data_with_epochs("voltage")
# 6001 time points (2000 sample rate)
# 287 trials
# 1 channel
dim(voltage)
ravetools::plot_signals(t(voltage[, 1:10, 1]),
sample_rate = 2000,
ylab = "Trial",
main = "First 10 trials")
}
Run the code above in your browser using DataLab