Modeling Data With Functional Programming in R