Nuevo fichero Modelo.R donde se divide el train.df en dos y se evaluara el modelo