for R 3.1.2