Update with R codes and PNG files