Funciones R
SCRIPT de SOLVATACIÓN