R project Code Example