r codes and plots
r codes and plots