usaremos para definir una métrica d* en R por