RGraphGallery

• first read data (download from R for medicine and biology companion website: http://www.jblearning.com/catalog/9780763758080/)
• extract one point in time
• here you see two snapshots from the resulting 3d object (opengl has to be installed)
• plot using rgl

library("oro.dicom")
library(rgl)
library("misc3d")
library("AnalyzeFMRI")
x <- f.read.analyze.volume("finger.img")
volume <- x[ , , , 1]
contour3d(volume, 1:64, 1:64,1.5*(1:25), lev=c(500,700,800),alpha=c(0.2,0.5,1),color=c("white","red","green"))