Simple R functions to replace SAS for Matematisk Modellering 1 at Aarhus University