Side by Side Random Walk Plot

[spsanderson]

Create a side by side random walk plot function. It should show the random lines and the cumulative_* line that is chosen. An example output in base R

layout(matrix(1:2, ncol=2))
plot.ts(x)
plot.ts(cumsum(x))
layout(matrix(1, nrow=1))