Bearish signal as bearish force dominates:
Here is an exmample:
price <- MSFT['2011-12-15/2011-12-20'] candleChart(price, theme='white')