powered by
R4dfp.Blank(file="",dims=c(1,1,1,1),scale=c(1,1,1),mmppix=c(1,-1,-1), center=c(0,0,0)) R4dfp.Blank333(file="",t=1) R4dfp.Blank111(file="",t=1)
R4dfp.Save
R4dfp.Copy
R4dfp.Close
R4dfp.Recycle
#create a new image and load it for direct writing myimage <- R4dfp.Blank333("myimage.4dfp.ifh") myimage <- R4dfp.Recycle(myimage,direct.write=TRUE)
Run the code above in your browser using DataLab