# create binned data with 150 ms bin sizes sampled at 10 ms intervals
raster_dir_name <- file.path(
"..", "data-raw", "raster",
"Zhang_Desimone_7objects_raster_data_rda", ""
)
raster_dir_name <- trimws(file.path(system.file("extdata", package = "NeuroDecodeR"),
"Zhang_Desimone_7object_raster_data_small_rda", " "))
# \donttest{
# The code could potentially run faster by using more parallel cores
# (e.g., by not setting the num_parallel_cores argument, half the cores available
# will be used)
binned_file_name <- create_binned_data(raster_dir_name,
file.path(tempdir(), "ZD"),
150, 50,
num_parallel_cores = 2)
# }
Run the code above in your browser using DataLab