First commit for the r script