# NOT RUN {
# Generate 10 values from N(0, 1)
x <- rnorm(10)
# Calculate vector of ratios
(y <- ratios(x))
# Slower base R computation
len <- length(x)
y2 <- x[2: len] / x[1: (len - 1)]
all.equal(y, y2)
# }
Run the code above in your browser using DataLab