rfunction

My first R function in GitHub