## -----------------------------------------------------------------------------
a <- 2 + 2
a

## -----------------------------------------------------------------------------
set.seed(42)
par(mar=c(3,3,3,0))
plot(cumsum(rnorm(100)), type='l',
     main="Up and and away")