# Package comes with sample data
file <- system.file("samples", "bci2000_sample.dat", package = "readNSx")
result <- read_bci2000(file)
print(result)
# Notive: v1.0 and v1.1 are different, but all in `Source` section
# sample rate
result$parameters$Source$SamplingRate$value
# Signal data 64 channels x 500 time-points
dim(result$signals)
Run the code above in your browser using DataLab