不同的结果-Z得分vs布林带

Question

我有一个时间序列要计算Z分数，但是如果我将Bollinger Band应用于验证，则会得到不同的结果。如果我正确理解的话，那么从Zscore和BB两者中得到的结果应该都是相同的，因为Zscore仅是归一化的结果。

library("TTR")
data <- read.csv(file="ts1.csv",h=F)
data <- as.numeric(unlist(data))
zs <- (data-SMA(data, n=20))/sd(data)
bb <- BBands(data, n = 20, SMA, sd=2) 

par(mfrow = c(2,1))
plot(data, t = "l")
lines(bb[,1], col = 'brown')
lines(bb[,2], col = 'brown')
lines(bb[,3], col = 'brown')
plot(zs, col = "black", t="l")

结果是： enter image description here

数据源：https://www.dropbox.com/s/vpgd4mtm2bvbc9t/ts1.csv?dl=0

Answer 1

解决方案是：zs <-（data-SMA（data，n = 20））/ runSD（data，n = 20）