Create descomponer.R