005.R

attach(lll)

par(mfrow = c(3,2))

plot(Close[1000:1288], xlab=Time[1000], ylab="Original", type="l", lwd=2)
abline(h=Close[1048], col="gray")
plot(RSI[1000:1288], xlab=Time[1000], ylab="original", type="l", lwd=2)

i <- 0

while(i <= 260000){
  i <- i + 1
  n <- i + 48
  H4 <- i + 288
  if(cor(RSI[i:n], RSI[1000:1048]) > 0.96){
    plot(Close[i:H4], xlab=Time[i], ylab="", type="l")    
    abline(h=Close[i + 48], col="red")
    if(Close[i + 48] < (max(Close[i:H4]) + min(Close[i:H4]))/2){
      abline(h=Close[i + 48], col="blue")
    }
    
    plot(Close[1000:1288], xlab=Time[1000], ylab="Original", type="l")
    abline(h=Close[48], col="gray")
    i <- i + 15
  }     
}