data <- c(1, 3, 6, 4, 9)
plot(data)