if (FALSE) {
# Example 1
data <- list(ttt=writeBin(rnorm(32*32*32*107), raw(), 4),
mask=array(TRUE, c(32, 32, 32)), dim=c(32, 32, 32, 107))
class(data) <- "fmridata"
data <- slicetiming(data,sliceorder=1:32)
## provides data corrected for sequential slice acquisition in linear order
}
Run the code above in your browser using DataLab