2th submit

Add the .r file