# Create an Epoch object
epoch_data <- matrix(rnorm(1000), nrow = 10)
rownames(epoch_data) <- paste0("Electrode_", 1:10)
epoch <- Epoch(epoch_data, startTime = 0, samplingRate = 100)
# crop the epoch
crop(epoch, start = 0.5, end = 1.5)
Run the code above in your browser using DataLab