# Create some example NeuroVec objects
v1 <- NeuroVec(array(0, c(5, 5, 5, 2)),
space = NeuroSpace(dim = c(5, 5, 5, 2)))
v2 <- NeuroVec(array(1, c(5, 5, 5, 4)),
space = NeuroSpace(dim = c(5, 5, 5, 4)))
v3 <- NeuroVec(array(2, c(5, 5, 5, 6)),
space = NeuroSpace(dim = c(5, 5, 5, 6)))
# Combine them into a sequence
vs <- NeuroVecSeq(v1, v2, v3)
# Access properties
length(vs) # Total time points
vs[[5]] # Get the 5th volume
# Extract a subsequence
sub_seq <- sub_vector(vs, 1:5)
# Create sample vectors
v1 <- NeuroVec(array(0, c(5, 5, 5, 2)),
space = NeuroSpace(dim = c(5, 5, 5, 2)))
v2 <- NeuroVec(array(0, c(5, 5, 5, 4)),
space = NeuroSpace(dim = c(5, 5, 5, 4)))
# Combine into sequence
vs <- NeuroVecSeq(v1, v2)
print(vs)
Run the code above in your browser using DataLab