diff --git a/R/heikinAshi.R b/R/heikinAshi.R index 84e14d9..6e10c54 100644 --- a/R/heikinAshi.R +++ b/R/heikinAshi.R @@ -13,7 +13,7 @@ heikinAshi$xH <- apply(tmp,1,max) heikinAshi$xL <- apply(tmp,1,min) heikinAshi$posNeg <- 1 - heikinAshi$posNeg[heikinAshi$C < heikinAshi$O] <- -1 + heikinAshi$posNeg[heikinAshi$xC < heikinAshi$xO] <- -1 return(heikinAshi) }