Added a basic R function called myfunction() for testing.