Changeset 14855c0 in tol


Ignore:
Timestamp:
May 13, 2010, 7:18:59 AM (16 years ago)
Author:
Víctor de Buen <vdebuen@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
9421997
Parents:
97a3b1b
Message:

Comparación de resultados con los datos reales

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@2164 be4846ae-f051-483a-831f-b64e7d08527f

File:
1 edited

Legend:

Unmodified
Added
Removed
  • tol_pkg/BysVecLinReg/test/test_0003/test.tol

    r97a3b1b r14855c0  
    4343
    4444VMatrix avg = Tra(Constant(1,sampleLength,1/sampleLength)*mcmc);
    45 VMatrix vec.A = BysVecLinReg::vmatrix2vec(
     45VMatrix vec.A_ = BysVecLinReg::vmatrix2vec(
    4646  SubRow(avg,Range(1,MV::_.m * MV::_.d,1)));
    47 VMatrix vec.V = BysVecLinReg::vmatrix2vec(
     47VMatrix vec.V_ = BysVecLinReg::vmatrix2vec(
    4848  SubRow(avg,Range(MV::_.m * MV::_.d+1,VRows(avg),1)));
    4949
    50 VMatrix A_ = BysVecLinReg::vec2vmatrix(vec.A,MV::_.A);
    51 VMatrix V_ = BysVecLinReg::vec2vmatrix(vec.V,MV::_.V);
     50VMatrix A_ = BysVecLinReg::vec2vmatrix(vec.A_,MV::_.A);
     51VMatrix V_ = BysVecLinReg::vec2vmatrix(vec.V_,MV::_.V);
     52//Instant residuals correlation
     53VMatrix V.COR_ = Mat2VMat(NormDiag(VMat2Mat(V_)));
     54
    5255VMatrix E_ = Y - A_*X;
    5356VMatrix E_t = Tra(E_);
    5457VMatrix E01_ = CholeskiSolve(V.L,E_,"PtLLtP");
     58
     59VMatrix S2_ = MMtSqr(E_);
     60VMatrix S2.COR_ = Mat2VMat(NormDiag(VMat2Mat(S2_)));
     61
     62VMatrix cmpA = BysVecLinReg::vmatrix2vec(A) |
     63               BysVecLinReg::vmatrix2vec(A_);
     64VMatrix cmpV = BysVecLinReg::vmatrix2vec(V) |
     65               BysVecLinReg::vmatrix2vec(V_);
    5566VMatrix cmpE = BysVecLinReg::vmatrix2vec(E) |
    5667               BysVecLinReg::vmatrix2vec(E_);
    … …  
    6071Real stdErr  = VMatAvr(E01 ^2);
    6172Real stdErr_ = VMatAvr(E01_^2);
     73Real quality.adjust = Min(1,Exp((stdErr-stdErr_)*N*d));
    6274
    63 Real quality.adjust = Min(1,Exp((stdErr-stdErr_)*N*d));
    6475
    6576VMatrix C.dist = C*vec.A - c;
Note: See TracChangeset for help on using the changeset viewer.