u1000 <- runif(1000, 0, 1)

f <- function (n) {
   sum(u1000[1:n])
}

numbers <- (1:1000)

sums <- lapply(numbers, f)

plot(numbers, sums)