# NOT RUN {
### Faster - 8mm resampled but very coarse
imgs <- paste("Visit_", 1:5, "_8mm.nii.gz", sep="")
ifiles <- sapply(imgs, system.file, package='brainR')
files = file.path(tempdir(), basename(ifiles))
file.copy(ifiles, files)
outfile <- file.path(tempdir(), "index_4D_stl.html")
scene4d(files, levels=rep(0.99, length(files)),
outfile = outfile, color= rep("blue", length(files)), useTemp=TRUE,
MNITemp = "8mm", alpha = rep(1, length(files)), rescale=TRUE )
# }
# NOT RUN {
imgs <- paste("Visit_", 1:5, ".nii.gz", sep="")
ifiles <- sapply(imgs, system.file, package='brainR')
files = file.path(tempdir(), basename(ifiles))
file.copy(ifiles, files)
scene4d(files, levels=rep(0.99, length(files)),
outfile = outfile,
color= rep("blue", length(files)), useTemp=TRUEge,
MNITemp = "8mm", alpha = rep(1, length(files)), rescale=TRUE )
# }
Run the code above in your browser using DataLab