Get the mask volume
Examples
if (FALSE) { # \dontrun{
# For LatentNeuroVec:
if (!is.null(fmristore:::create_minimal_LatentNeuroVec)) {
lnv <- NULL
tryCatch({
lnv <- fmristore:::create_minimal_LatentNeuroVec(space_dims = c(3L,3L,2L))
mask_vol <- mask(lnv)
print(mask_vol)
# if (requireNamespace("neuroim2", quietly=TRUE)) print(is(mask_vol, "LogicalNeuroVol"))
}, error = function(e) {
message("mask example for LatentNeuroVec failed: ", e$message)
})
} else {
message("Skipping mask example for LatentNeuroVec: helper not available.")
}
# For H5ParcellatedMultiScan:
if (!is.null(fmristore:::create_minimal_h5_for_H5ParcellatedMultiScan)) {
temp_exp_file <- NULL
exp_obj <- NULL
tryCatch({
temp_exp_file <- fmristore:::create_minimal_h5_for_H5ParcellatedMultiScan()
exp_obj <- fmristore::H5ParcellatedMultiScan(file_path = temp_exp_file)
mask_vol_exp <- mask(exp_obj)
print(mask_vol_exp)
}, error = function(e) {
message("mask example for H5ParcellatedMultiScan failed: ", e$message)
}, finally = {
if (!is.null(exp_obj)) try(close(exp_obj), silent = TRUE)
if (!is.null(temp_exp_file) && file.exists(temp_exp_file)) {
unlink(temp_exp_file)
}
})
} else {
message("Skipping mask example for H5ParcellatedMultiScan: helper not available.")
}
} # }