单因变量的PLS算法

function [BabtuF] = PLS（XYc_num）

[np] = size（X）;
[nq] = size（Y）;
X_mean = mean（X）;
X_var = sqrt（diag（cov（X））.‘）;
Y_mean = mean（Y）;
Y_var = sqrt（diag（cov（Y））.‘）;
E0 = zscore（X）;
F0 = zscore（Y）;
E = E0;
F = F0;
ss_h_1 = 1e7;
for i = 1 : c_num
    A1 = E.‘ * F * F.‘ * E;
    A2 = F.‘ * E * E.‘ * F;
    [Wtheta] = eigs（A11）;
    [Ctheta] = eigs（A21）;
    w（:i） = W / norm（W）;
    c（:i） = C / norm（C）;
    t（:i） = E * w（:i）;
    u（:i） = F * c（:i）;
    P（:i） = E.‘ * t（:i） / （norm（t（:i）））^2;
    r（:i） = F.‘ * t（:i） / （norm（t（:i）））^2;
   
    wp = e