powered by
trdbinary(y)
y
trdbilson
trdes
trdhp
trdsma
trdwma
capser
data(StockIndex) y <- StockIndex[, "SP500"] yret <- diff(log(y)) binary <- trdbinary(yret) head(binary)
Run the code above in your browser using DataLab