# Generate a simple example timeseries
ts <- data.frame(
subjects = rep(1, 100),
run = rep(1, 100),
time = cumsum(rep(1.38, 100)),
ROI1 = rnorm(100)
)
# Generate example events
events <- data.frame(
subjects = rep(1, 4),
run = rep(1, 4),
onset = c(10, 30, 50, 70),
duration = rep(0.5, 4),
event_type = c("A", "B", "A", "B"),
modulation = c(1, 1, 1, 1)
)
# Create convolved design matrix
design_matrix <- convolve_design_matrix(
timeseries = ts,
events = events,
factors = list(condition = c("A", "B")),
hrf_model = "glover"
)
# Create fMRI design for EMC2
fmri_design <- design_fmri(design_matrix, model = MRI_AR1)
Run the code above in your browser using DataLab