dt<- read.csv(file = "D:\\price.csv", header = T, na.strings = "null")
closeA<-dt[,2]
closeN<-dt[,3]
n<-length(closeA)
Areturn<-log(closeA[2:n])-log(closeA[1:n-1])
Nreturn<-log(closeN[2:n])-log(closeN[1:n-1])
Return.ts<-ts(Nreturn,start=c(2018),freq=365)
plot(Return.ts,type="l",main="Daily Return of NSX-100",xlab="Date", ylab="Return", cex.main=0.95, las=1)