📄 transformback.m
字号:
function [BCoeff] = TransformBack(B, W, P, Q, LatVar);
[MQ, NvarQ] = size(Q);
[MW, NvarW] = size(W);
W = W(:,1:LatVar);
Q = Q(:,1:LatVar);
P = P(:,1:LatVar);
B = B(:,1:LatVar);
BCoeff = zeros(MQ * LatVar, MW);
if MQ == 1
BCoeff = (W * inv(P'*W) * diag(B))'; % ready
else
Z = (W * inv(P'*W) * diag(B))';
for lv = 1:LatVar
ZZ = Z(lv,:);
BCoeff((lv-1)*MQ+1:lv*MQ,:) = diag(Q(:,lv)) * ZZ(ones(MQ,1),:); % write out all coefficients
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -