rasterfile <- system.file("external/test.grd", package="raster")
st <- stack(c(rasterfile, rasterfile))
st <- stackSave(st, "mystack")
# note that filename adds an extension .stk to a stackfile
#st2 <- stackOpen("mystack.stk")
#st2
Run the code above in your browser using DataLab