Text this: RStudio scripts for modelling AFC in arc magmas