Step 4. Regroup and change bandwidth as desired
xsg3 <- group(xsg2, bw=10)