Update echarts_example.R

Add two examples for eFroce Function