Stav dette: RStudio scripts for modelling AFC in arc magmas