Function content established for R-programming asignment.