Add R simulation example