powered by
f.write.analyze(mat,file,size,pixdim,vox.units,cal.units,originator)
f.write.array.to.img.8bit
f.write.array.to.img.2bytes
f.write.array.to.img.float
a<-array(rnorm(20*30*40*3),dim=c(20,30,40,3)) file<-"temp" f.write.analyze(a,file,size="float") f.analyze.file.summary("temp.img")
Run the code above in your browser using DataLab