Create set.R