Update dataconvert.R