Create slicedens.R