My script

this is a game

a <- c(1:25)
for(i in 1:25){
  a[i]<- c(i^2)
  sum(a)
}

First plot

x<- c(1:10)
y= rnorm(10)
plot(x,y)