add R codes and png