R语言前循环简单矢量算法不适用于时间序列

Question

I am trying to make a simple moving average (SMA) of GOOG stocks. When done like this, I get strange and discontinuous lines in red for the SMA:

frame()
rm(list=ls())

#Value of securities in GOOG
GOOG=read.csv(file="GOOG.csv", head=TRUE, sep=",")
plot(x=GOOG$Close, type="l", ylab="GOOG Closing Prices",xlab="Time")
SMA=GOOG$Close

#5 Day SMA in RED
for(i in 1:84)
{
  segments(x0=i,y0=mean(SMA[i:i+4]),
       x1=i+1, y1=mean(SMA[i+1:i+5]),
       col="red")
}

However, when I replace mean(SMA[i:i+4]) with (SMA[i]+...+SMA[i+4])/5 (and same with replacing mean(SMA[i+1:i+5])), the values work out fine and the SMA graph is smooth and continuous, as it should be.

But arent these two values the same thing? How can I correct this issue while still keeping the shorthand way of writing the average?

Answer 1

Try:

#5 Day SMA in RED
for(i in 1:84)
{
  segments(x0=i,y0=mean(SMA[i:(i+4)]),
       x1=i+1, y1=mean(SMA[(i+1):(i+5)]),
       col="red")
}

*(Added parentheses)

Careful with your indices.