Added stein1_tr()