Hi Report!

set.seed(1213)  # for reproducibility
x = cumsum(rnorm(100))
mean(x)  # mean of x

## [1] -1.94

plot(x, type = "l")  # Brownian motion

1 + 1

## [1] 2

rnorm(5)

## [1] -0.01156 -0.90915  0.37367  1.90694  0.16459