add user preference generation part in Rtool.R