In sivasunku/rulesNtrades: Apply rules on equities

wzxhzdk:0 #Krausz Tripple Screen Indicator `r gSymbols` #Averages wzxhzdk:1
No. of weeks for HiLo Avg : **`r hlNW`**
No. of days for hma Avg : **`r hmaLN`**
No. of ticks for consideration : **`r gTicks`**
Transaction Fee Percent **`r gTxnFee * 100`%**
Date Range of the test performed **`r sampleRange`** #Capital Fields wzxhzdk:2 `r kable(temp)` wzxhzdk:3 #Trade Statistics `r kable(gStats)` wzxhzdk:4 wzxhzdk:5

Equity Curve

temp <- aggregate(gTrades$netP,by = list(as.yearqtr(as.Date(gTrades$entryTime))),FUN = sum)
temp$y <- cumsum(temp$x)
temp$x <- NULL

plot(temp,type="l",xlab="Quarters",ylab="Profit")
title("Equity Curve", sub = "Per Quarter",
      cex.main = 2,   font.main= 3, col.main= "blue",
      cex.sub = 0.75, font.sub = 3, col.sub = "red")

if (detailedPrint == TRUE){
  write.csv(gTrades,file = tradesFile)
  hma.plot(sample,file = tradesPrint,by = "halfyear")
  #All the trades are stored in the file 
  tradesFile
  #All the trades are graphed in the file 
  tradesPrint
}