Paciente     Patologia

 1         Sarcopenia

 1          Obesidad

 2          Sarcopenia

 2          Lupus

 2          Dolor

Paciente       Sarcopenia     Obesidad   Lupus     Dolor
1                1             1         0        0
2                1             0         1        1

tr <- as(Matriz2, "transactions")