Cambiado if por ifelse en función simCorr