Comprobacion
>
evalm(transpose(T)&*T);