Initialising some r testing

dummy scripts etc