# NOT RUN {
# }
# NOT RUN {
dcmList <- dicomSeparate(system.file("hk-40", package="oro.dicom"))
require("oro.nifti")
dcmAnlz <- dicom2analyze(dcmList, datatype=4, mode="integer")
image(dcmAnlz)
orthographic(dcmAnlz)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab