backward elimination with R step()