Added first version of R Sceaper