commit R script for GungHo candlestick chart