My first pull request

...pdated, along with the line in allez.R that calls the function.