Create functions_miguel.r