x <- rnorm(100)
y <- cumsum(x)

lastval <- tail(y,1)
pchange <- (y-lastval)*100/lastval
plot(1:100,y)

axis(side = 4)