Update data folder and r function
Update