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

Question

我正在尝试对GOOG股票进行简单的移动平均线（SMA）。 像这样完成后，对于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")
}

但是，当我用（SMA [i] + ... + SMA [i + 4]）/ 5代替均值（SMA [i：i + 4]）/ 5（与替换均值（SMA [i + 1：i]相同+5]）），这些值可以很好地工作，并且SMA图是应该平滑且连续的。

但是，这两个值是否相同？ 我如何纠正这个问题，同时又保持写平均值的捷径？

Answer 1

尝试：

#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")
}

*（加括号）

小心您的索引。