Code from the first submission of 0.1 to CRAN