data <- c(0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610)
plot(data, type = "b", xlab = "x", ylab = "y")