具有移动长度的移动平均线[重复]

Question

如何使用不同时期的不同长度参数计算 R 中的移动平均线（或其他技术指标）？

require(quantmod)
library(chron)
library(caTools)

## rm(list = ls())

#  Get the data
from.dat <- as.Date("2015-01-01")
#to.dat <- as.Date("2000-01-01")

ES <- getSymbols("^GSPC" , from = from.dat,auto.assign = FALSE) # to today

data <- ES
rm(ES)
data<-data[,6]
names(data)<-c("ES")


# create vectore with dummy values
data$num <- rep(10,length(data$ES))
for(i in 2:length(data$num)){
        if (data$num[i-1] == 10) {data$num[i] <- 5}
}


# moving average with moving length
data$sma<-SMA(data$ES, data$num )
plot(data$ema)

该图甚至没有显示移动平均线。如何使用带有移动长度参数的技术指标？

Answer 1

如果我理解你的正确性，你希望 data$sma 是一个交替的长度为 5 的平均值和长度为 10 的平均值的向量。

l5sma <- SMA(data$ES, 5) 
l10sma <- SMA(data$ES, 10)

data$sma <- ifelse(data$num == 5, l5sma, l10sma)
plot(data$ES)
lines(data$sma, col = 3)