R functions for Kelli Faye Johnson