An R-Based Function for Modeling of End Member Compositions