NYSE TICK INDEX

 

get data from here.

# read csv 
TICK <- read.csv("~/Downloads/NYSETickIndex.csv") 

# inverse entry order
TICK[length(index(TICK)):1,]

# 1) remove "," from data field, 2)convert data data to POSIX compliant

# 3) extract daily low only
TICK <-as.xts(as.numeric(sub(",","",TICK[,5])),as.Date(paste(substr(TICK[,1],1,4),substr(TICK[,1],6,7),substr(TICK[,1],9,10),sep = '-')))