
Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Restart spooling on spool.txt

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Thu Aug  2 14:24:39 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Thu Aug  2 14:24:39 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.92175

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Thu Aug  2 14:28:15 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Thu Aug  2 14:28:15 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.92097

Cmd> 
Normal termination by end of file on input
spool: ERROR: everything = 0, QUIET = 2

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended
spool: ERROR: everything = -1, QUIET = 2

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Aug  3 10:28:34 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Aug  3 10:28:34 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.98357

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Aug  3 10:29:32 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Aug  3 10:29:32 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.92705

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Mon Aug  6 10:27:45 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Mon Aug  6 10:27:45 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 1.5771

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Thu Aug  9 13:06:25 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Thu Aug  9 13:06:25 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 1.0369

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Aug 10 09:27:35 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Aug 10 09:27:35 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.97339

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Aug 10 11:33:12 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Aug 10 11:33:12 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.93628

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Aug 10 14:14:51 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Aug 10 14:14:51 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 1.0002

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Aug 10 15:08:36 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Aug 10 15:08:36 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.93913

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Aug 10 15:45:41 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Aug 10 15:45:41 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.92221

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Aug 10 16:30:50 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Aug 10 16:30:50 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.9244

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Aug 10 16:31:39 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Aug 10 16:31:39 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.92331

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Aug 10 17:56:32 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Aug 10 17:56:32 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.92619

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Sat Aug 11 09:28:17 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Sat Aug 11 09:28:17 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 1.0347

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Sat Aug 11 09:35:37 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Sat Aug 11 09:35:37 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.97095

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Sat Aug 11 10:05:04 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Sat Aug 11 10:05:04 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.98213

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Sat Aug 11 17:44:46 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Sat Aug 11 17:44:46 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.98783

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Aug 14 14:07:22 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Aug 14 14:07:22 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 1.0469

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Aug 17 07:41:28 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Aug 17 07:41:28 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.97703

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Aug 17 07:42:50 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Aug 17 07:42:50 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.92392

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Mon Aug 20 16:14:23 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Mon Aug 20 16:14:24 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.98625

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Aug 21 11:03:17 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Aug 21 11:03:17 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.98055

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Oct 16 18:07:28 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
ERROR: incomplete restore

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.6126

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Oct 17 08:04:02 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Oct 17 08:04:02 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.79296

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Oct 17 08:04:52 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Oct 17 08:04:52 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.5654

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Oct 17 08:57:30 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Oct 17 08:57:30 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.57607

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Oct 19 18:00:52 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Oct 19 18:00:52 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.61358

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Oct 26 09:09:22 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Oct 26 09:09:22 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.78222

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Dec  5 08:14:11 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Dec  5 08:14:11 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.6533

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Dec 14 12:43:09 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Dec 14 12:43:09 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.66224

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Mon Dec 17 09:09:04 2001

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Mon Dec 17 09:09:04 2001

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.66776

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Feb 20 16:31:10 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Feb 20 16:31:10 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.66708

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Feb 20 16:31:52 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Feb 20 16:31:52 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.62278

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Feb 20 16:32:24 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Feb 20 16:32:24 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.62085

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Mon Mar 18 08:37:13 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Mon Mar 18 08:37:13 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.60405

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Mon Mar 18 17:37:16 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Mon Mar 18 17:37:16 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.67156

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Mar 19 10:57:30 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Mar 19 10:57:30 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.63944

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Mar 19 10:58:10 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Mar 19 10:58:11 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.57553

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Mar 19 11:00:46 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Mar 19 11:00:46 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.57891

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Mar 19 11:07:06 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Mar 19 11:07:06 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.57655

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Mar 19 11:10:27 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Mar 19 11:10:27 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.57391

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Mar 19 11:11:19 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Mar 19 11:11:19 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.57883

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Mar 19 11:14:21 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Mar 19 11:14:21 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.57987

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Mar 19 11:15:34 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Mar 19 11:15:34 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.59023

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Mar 19 11:17:20 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Mar 19 11:17:20 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.58019

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Mar 19 11:19:21 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Mar 19 11:19:21 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.58312

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Mar 19 11:21:12 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Mar 19 11:21:12 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.58577

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Mar 19 11:22:27 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Mar 19 11:22:27 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.57843

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Mar 19 11:25:13 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Mar 19 11:25:13 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.58061

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Mar 19 11:25:42 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Mar 19 11:25:42 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.64454

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Mar 19 11:26:09 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Mar 19 11:26:09 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.60409

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Mar 19 11:27:56 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Mar 19 11:27:56 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.59281

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Mar 19 11:31:00 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Mar 19 11:31:00 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.59801

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Thu Mar 21 11:47:51 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Thu Mar 21 11:47:51 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.64935

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Thu Mar 21 16:48:08 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Thu Mar 21 16:48:08 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.62624

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Mar 22 16:12:46 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Mar 22 16:12:46 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.61469

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Sun Mar 24 11:31:58 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Sun Mar 24 11:31:58 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.60952

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Mon Mar 25 17:32:59 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Mon Mar 25 17:32:59 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.5989

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Mon Mar 25 17:33:22 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Mon Mar 25 17:33:22 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.55028

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Apr 23 08:06:45 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Apr 23 08:06:45 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.66434

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Apr 23 08:07:01 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Apr 23 08:07:01 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.59732

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Apr 26 07:33:25 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Apr 26 07:33:25 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.79545

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed May  8 15:04:04 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed May  8 15:04:04 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.62896

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Sat May 11 08:00:26 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Sat May 11 08:00:26 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.5972

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed May 22 15:27:03 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed May 22 15:27:03 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.5655

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed May 22 15:39:14 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed May 22 15:39:14 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.55986

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed May 22 15:48:03 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed May 22 15:48:03 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.5576

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed May 29 15:06:15 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed May 29 15:06:15 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.59856

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Jul  2 11:13:58 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Jul  2 11:13:58 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.62431

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Jul  2 16:11:24 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Jul  2 16:11:24 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.60266

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Jul  3 09:39:41 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Jul  3 09:39:41 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.58636

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Jul  3 13:52:06 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Jul  3 13:52:06 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.65068

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Jul  3 16:03:21 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Jul  3 16:03:21 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.6433

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Jul  5 08:38:20 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Jul  5 08:38:20 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.58588

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Jul  9 17:44:39 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Jul  9 17:44:39 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.6691

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Jul 12 14:40:56 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Jul 12 14:40:56 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.59849

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Jul 12 17:10:23 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Jul 12 17:10:23 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.60473

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Mon Aug  5 17:01:00 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Mon Aug  5 17:01:00 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.64785

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Aug  6 12:26:49 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Aug  6 12:26:49 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.61998

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Aug  6 15:07:48 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Aug  6 15:07:48 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.57047

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Aug  7 09:13:38 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Aug  7 09:13:38 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.59477

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Aug  7 11:23:18 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Aug  7 11:23:18 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.58297

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Aug  7 13:27:12 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Aug  7 13:27:12 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.62709

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Aug  7 13:27:46 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Aug  7 13:27:46 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.57808

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Aug  7 13:28:53 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Aug  7 13:28:53 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.58055

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Aug  7 13:50:04 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Aug  7 13:50:04 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.58075

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Aug  7 15:36:36 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Aug  7 15:36:36 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.58238

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Aug  7 15:45:13 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Aug  7 15:45:13 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.58273

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Aug  7 16:27:55 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Aug  7 16:27:55 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.58397

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Aug  7 16:37:46 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Aug  7 16:37:46 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.58141

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Thu Aug  8 07:29:33 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Thu Aug  8 07:29:33 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.58605

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Thu Aug  8 13:25:01 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Thu Aug  8 13:25:01 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.62186

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Thu Aug  8 13:38:44 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Thu Aug  8 13:38:44 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.57211

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Aug  9 13:06:20 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Aug  9 13:06:20 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.61065

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Aug  9 13:06:44 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Aug  9 13:06:44 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.57065

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Aug  9 13:08:05 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Aug  9 13:08:05 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.56853

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Sat Aug 24 15:56:09 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Sat Aug 24 15:56:09 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.66618

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Mon Aug 26 08:56:23 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Mon Aug 26 08:56:23 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.58738

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Aug 27 16:05:10 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Aug 27 16:05:11 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.76947

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Aug 27 16:29:14 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Aug 27 16:29:14 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.66255

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Thu Aug 29 08:33:28 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Thu Aug 29 08:33:28 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.61106

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Sep 13 17:24:30 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Sep 13 17:24:30 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.62709

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Sun Sep 15 20:35:32 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Sun Sep 15 20:35:32 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.65863

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Oct  8 13:52:20 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Oct  8 13:52:20 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.76148

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Oct 22 09:44:32 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Oct 22 09:44:32 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.38211

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Oct 22 17:30:23 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Oct 22 17:30:24 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.36367

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Oct 25 07:29:09 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Oct 25 07:29:09 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.48055

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Nov  1 07:56:11 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Nov  1 07:56:11 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.39003

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Nov  1 07:56:32 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Nov  1 07:56:32 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.31689

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Nov  1 08:03:24 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Nov  1 08:03:24 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.3123

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Nov  5 14:41:44 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Nov  5 14:41:44 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.39648

Cmd> 
Normal termination by end of file on input

TestChapter2b.in> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

TestChapter2b.in> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

TestChapter2b.in> spool() # suspend spooling
Spooling on spool.txt suspended

TestChapter2b.in> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

TestChapter2b.in> #2.17 Using save() and restore() to preserve work between sessions

TestChapter2b.in> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

TestChapter2b.in> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

TestChapter2b.in> delete(x)#quit  # terminate the run

TestChapter2b.in> x # At this point x is not defined
UNDEFINED

TestChapter2b.in> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Dec  3 17:18:11 2002

TestChapter2b.in> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

TestChapter2b.in> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

TestChapter2b.in> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Dec  3 17:18:11 2002

TestChapter2b.in> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 2.1697

TestChapter2b.in> (end of file on TestChapter2b.in)

Cmd> 
Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Dec  3 17:21:34 2002

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Dec  3 17:21:34 2002

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 2.1971

Cmd> (end of file on TestChapter2b.in)

Cmd> 
Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Jan 15 10:20:14 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Jan 15 10:20:14 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.6685

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Jan 15 10:22:34 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Jan 15 10:22:34 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.6136

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Sat Feb  8 09:56:51 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Sat Feb  8 09:56:51 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.64534

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Sat Feb  8 10:40:07 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Sat Feb  8 10:40:07 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.33151

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Mon Feb 17 07:45:20 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Mon Feb 17 07:45:20 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.65251

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Mon Feb 17 07:45:58 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Mon Feb 17 07:45:58 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.60943

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Mar  5 07:34:19 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Mar  5 07:34:19 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.65582

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Mar  5 07:38:11 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Mar  5 07:38:11 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.61304

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Mar 11 10:17:23 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Mar 11 10:17:23 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.60744

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Mar 11 11:07:05 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Mar 11 11:07:05 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.57702

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Mar 14 17:48:14 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Mar 14 17:48:14 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.67061

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Sat Mar 15 14:50:57 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Sat Mar 15 14:50:57 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.65732

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Apr  9 07:28:54 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Apr  9 07:28:54 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.65503

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue May 20 11:47:45 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue May 20 11:47:45 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.61346

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue May 20 12:05:03 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue May 20 12:05:03 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.57652

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Thu May 22 11:15:13 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Thu May 22 11:15:13 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.60384

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Jul  8 08:59:08 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Jul  8 08:59:08 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.70191

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Jul  8 10:22:14 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Jul  8 10:22:14 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.55703

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Jul 11 17:11:45 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Jul 11 17:11:45 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.63803

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Jul 11 17:11:58 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Jul 11 17:11:58 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.58719

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Jul 11 17:15:31 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Jul 11 17:15:31 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.59091

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Jul 15 12:39:56 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Jul 15 12:39:56 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.47267

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Jul 16 07:39:06 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Jul 16 07:39:06 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.47356

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Jul 16 08:07:01 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Jul 16 08:07:01 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.42973

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Thu Jul 17 11:31:04 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Thu Jul 17 11:31:04 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.62947

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Thu Aug 14 12:06:29 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Thu Aug 14 12:06:29 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.55136

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Thu Sep 11 15:25:37 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Thu Sep 11 15:25:37 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.51435

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Thu Sep 11 16:29:42 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Thu Sep 11 16:29:42 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.44266

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Sat Sep 13 16:16:08 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Sat Sep 13 16:16:08 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.4745

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Sep 23 09:20:24 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Sep 23 09:20:24 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.51009

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Tue Sep 23 16:15:40 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Tue Sep 23 16:15:40 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.61294

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Thu Oct  9 07:46:44 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Thu Oct  9 07:46:44 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.64153

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on workspace file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Fri Dec 12 16:44:47 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on workspace file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Fri Dec 12 16:44:47 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.6294

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on workspace file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Dec 17 12:05:55 2003

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on workspace file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Dec 17 12:05:55 2003

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.73924

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Mon Jan  5 15:54:24 2004

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Mon Jan  5 15:54:24 2004

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 2.6303

Cmd> (end of file on TestChapter2b.in)

Cmd> 
Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on workspace file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Mon Jan  5 15:56:17 2004

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on workspace file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Mon Jan  5 15:56:17 2004

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 2.6901

Cmd> (end of file on TestChapter2b.in)

Cmd> 
Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on workspace file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Wed Jan  7 09:28:08 2004

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on workspace file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Wed Jan  7 09:28:08 2004

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.6781

Cmd> 
Normal termination by end of file on input

Cmd> getseeds() #display current seeds, see Sec. 2.13
Seeds are 946682807 and 873681665

Cmd> x <- runi(5); x # this will be transcribed on spool.txt
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> spool() # suspend spooling
Spooling on spool.txt suspended

Cmd> x+1 # this line and following output will be transcribed
(1)       1.3896       1.7152       1.6302       1.5581       1.8608

Cmd> #2.17 Using save() and restore() to preserve work between sessions

Cmd> x # show that vector x is defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> save("session1.sav") # save workspace, including vector x
Workspace saved on workspace file session1.sav

Cmd> delete(x)#quit  # terminate the run

Cmd> x # At this point x is not defined
UNDEFINED

Cmd> restore("session1.sav") # restore the save file
Restoring workspace from file session1.sav
Workspace saved Thu Jan 29 11:37:27 2004

Cmd> x # variable x as we previously saved it is now defined
(1)      0.38959      0.71524      0.63019      0.55814       0.8608

Cmd> asciisave("chkpnt2b.sav") # make sure all variables created are savable
Workspace asciisaved on workspace file chkpnt2b.sav

Cmd> restore("chkpnt2b.sav")
Restoring workspace from file chkpnt2b.sav
Workspace saved Thu Jan 29 11:37:28 2004

Cmd> print(paste("Total time =",gettime(quiet:T,keep:T) - startTime))
Total time = 0.64579

Cmd> 
Normal termination by end of file on input
