# Generate example whitened data
n_time <- 200
n_pred <- 3
n_voxels <- 50
Xw <- matrix(rnorm(n_time * n_pred), n_time, n_pred)
Yw <- matrix(rnorm(n_time * n_voxels), n_time, n_voxels)
# Compute standard errors
se_result <- sandwich_from_whitened_resid(Xw, Yw, type = "iid")
# Extract standard errors for first voxel
se_voxel1 <- se_result$se[, 1]
Run the code above in your browser using DataLab