rform function

Reduce form for STS model