log(184.95/183.99)
y2 <- ROC(x[,"Close"],1,"discrete")
head(y2)
y3 <- ROC(x[,"Close"],1)
head(y3)


