search for: percentwins

Displaying 1 result from an estimated 1 matches for "percentwins".

2009 Jul 01
2
?max (so far...)
...pos] <- MyFrame$y[pos] MyFrame$l[!pos] <- MyFrame$y[!pos] return(MyFrame) } RunningCount = function (MyFrame) { ## Running count of p & l events pos <- (MyFrame$p > 0) MyFrame$pc <- cumsum(pos) pos <- (MyFrame$l < 0) MyFrame$lc <- cumsum(pos) return(MyFrame) } PercentWins = function (MyFrame) { MyFrame$pwin <- round((MyFrame$pc / (MyFrame$pc+MyFrame$lc)),2) return(MyFrame) } HighLow = function (MyFrame) { temp1 <- MyFrame$p[1:row] MyFrame$hp <- max(temp1) ## Highest p temp1 <- MyFrame$l[1:row] MyFrame$ll <- min(temp1) ## Lowest l return(My...