Adding rcharts plot and updating simChar function