# Create an empty extension list
ext_list <- new("NiftiExtensionList")
# Create a list with extensions
ext1 <- NiftiExtension(ecode = 6L, data = "Comment 1")
ext2 <- NiftiExtension(ecode = 6L, data = "Comment 2")
ext_list <- new("NiftiExtensionList", list(ext1, ext2))
Run the code above in your browser using DataLab