Create crea.R