Step 5. Fill in missing peaks
xsg4 <- fillPeaks(xsg3)