Improving example in tst2.R