USING R STUDIO

Please run the following code and annotate it with explanations of what you think the code is doing with comment statements.

# PRODUCT OF FIBONACCI NUMBERS

n = 20

Fibonacci <- rep(0, n)

Fibonacci[1] <- 1

Fibonacci[2] <- 1

Product <- 1

for (i in 3:n)

{

Fibonacci[i] <- (Fibonacci[i - 1]) + (Fibonacci[i - 2])

Product <- Fibonacci[i]*Product

}

Fibonacci[1:n]

Fibonacci[n]

Product