Go to this site to download the R code associated with my paper, "Some Implications of Preliminary Test Estimation in the Context of Size-Biased Sampling".