Create 5set.R