r codes

r codes