Extract Image Attribute descrip

Methods that act on the descrip field in the NIfTI/ANALYZE header.

descrip(object)

# S4 method for nifti
descrip(object)

# S4 method for anlz
descrip(object)

descrip(object) <- value

# S4 method for nifti
descrip(object) <- value

# S4 method for anlz
descrip(object) <- value

# S4 method for niftiImage
descrip(object)

# S4 method for niftiImage
descrip(object) <- value

Arguments

object	is an object of class nifti or anlz.
value	is the value to assign to the descrip field.

Details

See documentation on the ANALYZE and/or NIfTI data standards for more details.

References

ANALYZE 7.5
http://eeg.sourceforge.net/ANALYZE75.pdf
NIfTI-1
http://nifti.nimh.nih.gov/

Author

John Muschelli muschellij2@gmail.com,
Brandon Whitcher bwhitcher@gmail.com

Examples

if (FALSE) {
url <- "http://nifti.nimh.nih.gov/nifti-1/data/avg152T1_LR_nifti.nii.gz"
urlfile <- file.path(system.file("nifti", package="oro.nifti"),
                     "mniLR.nii.gz")
download.file(url, urlfile, quiet=TRUE)
}
urlfile <- file.path(system.file("nifti", package="oro.nifti"),
                     "mniLR.nii.gz")
mniLR <- readNIfTI(urlfile)
descrip(mniLR)
#> [1] "FSL3.2beta"
if (FALSE) {
descrip(mniLR) <- paste(descrip(mniLR), version$version.string, sep="; ")
descrip(mniLR)
}
file = system.file("extdata", "example.nii.gz", package = "RNifti")
img = RNifti::readNifti(file)
descrip(img)
#> [1] "TractoR NIfTI writer v3.0.0"
file = system.file("extdata", "example.nii.gz", package = "RNifti")
img = RNifti::readNifti(file)
descrip(img) = "a file"
descrip(img)
#> [1] "a file"
stopifnot(descrip(img) == "a file")