Random Walk Time Sereies with Regression Line

initValue = 10                  # Starting Point for the Time Series
T         = 100                 # Number of steps 
rwalk     = initValue + c(0,cumsum(rnorm(T))) # Random Walk
plot(rwalk, type="o", ylab="Random Walk")     # Plot of Random Walk
fit <- lm(rwalk~time(rwalk))
abline(fit)