R experiment