# Create a comment extension
ext <- NiftiExtension(ecode = 6L, data = "This is a comment")
ext@ecode
ext@esize
# Create an AFNI extension with XML data
afni_xml <- ''
afni_ext <- NiftiExtension(ecode = 4L, data = afni_xml)
Run the code above in your browser using DataLab