Update descomponer.R