Create az functions.R