diff --git a/R/ruleOrderProc.R b/R/ruleOrderProc.R index b4e2dcd..6fc6a67 100644 --- a/R/ruleOrderProc.R +++ b/R/ruleOrderProc.R @@ -325,7 +325,7 @@ ruleOrderProc <- function(portfolio, symbol, mktdata, timestamp=NULL, ordertype= symbol=symbol, timestamp=timestamp, qty=new.order.qty, - price=new.order.price-orderThreshold, + price=new.order.price, ordertype=orderType, prefer=prefer, side=order.side, @@ -377,7 +377,7 @@ ruleOrderProc <- function(portfolio, symbol, mktdata, timestamp=NULL, ordertype= symbol=symbol, timestamp=timestamp, qty=order.qty, - price=new.order.price - order.threshold, + price=new.order.price, ordertype=orderType, side=order.side, threshold=order.threshold,