Basic r code.