不同的结果 - Z-score vs. Bollinger Bands

Question

我有一次系列赛我想要计算Z得分，但如果我申请布林带进行验证，我会得到不同的结果。如果我理解正确，从两个（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）