R package: sfit