> getwd 

> setwd 

> save.image() 

> history() 

> x <- .Last.value # Capture the result now 
> x 
[1] 147.6549