update the R part
make printElement to output cnes in 1-based