Create UCItidydata.R