icc_hp_filtro <- hpfilter(icc, freq = 12, type = "frequency") icc_brecha <- ((icc - icc_hp_filtro$trend)/icc_hp_filtro$trend) * 100 #Análisis factorial