У меня есть одна серия, в которой я хочу рассчитать 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")
Результат:
введите описание изображения здесь
Источник данных: https://www.dropbox.com/s/vpgd4mtm2bvbc9t/ts1.csv?dl=0