*
* Exercise 3.2 on pp 77-78
* This is the set up for that example, which was left as an exercise
*
open data clothing.asc
data(format=free,org=columns) 1 400 tsales sales margin nown nfull npart naux hoursw hourspw inv1 inv2 ssize start