SMS: RStudio scripts for modelling AFC in arc magmas