mirror of
http://43.156.76.180:8026/YuuMJ/EukPhylo.git
synced 2025-12-28 16:10:25 +08:00
7 lines
124 B
Matlab
7 lines
124 B
Matlab
function r=R(U,D)
|
|
% compute R from U,D and pi
|
|
|
|
PI=U(:,1)'.^2;
|
|
pis=diag(sqrt(PI))
|
|
pisr=diag(1./(sqrt(PI)))
|
|
r=pisr*U'*D*U*pis; |