My first commit of the R codes and PNG files