## random R code ...