My R prelude