using R 3.1.1