如何用R来进行股票交易回测？程序讨论

可惜啊，关键的代码博客里没有给出来。

# 策略是当收盘价大于5日均线，代表可以入市，取1，否则代表清仓，取0。（-1是代表卖空，不适用。）
sig <- ifelse(close < mv5, 1, 0)

# 使用Lag()将信号序列向“过去”推迟一天，代表将昨天的信号，应用到今天。
sig <- Lag(sig) #将该序列向“过去”延迟一天