Create tablefunctions.R