Revision 578, 0.6 kB
(checked in by smidl, 15 years ago)
|
correct test case for #12
|
Rev | Line | |
---|
[571] | 1 | % sript for testing structure estimating function |
---|
| 2 | |
---|
| 3 | A=rand(2); |
---|
[574] | 4 | [L0,D0]=ldform(A); |
---|
[571] | 5 | B=rand(2); |
---|
[574] | 6 | [L1,D1]=ldform(A+B); |
---|
[571] | 7 | |
---|
[574] | 8 | % structure estimation - copied form facstr |
---|
[572] | 9 | belief = 2; % default belief |
---|
| 10 | nbest = 1; % nbest: how many regressors are returned |
---|
| 11 | nrep = 5; % nrep: number of random repetions of structure estimation |
---|
[574] | 12 | lambda = 0.9; |
---|
[572] | 13 | k=2; |
---|
| 14 | |
---|
[574] | 15 | % [strout, rgrsout, statistics] = |
---|
[578] | 16 | % straux1(L, d, nu, L0, d0, nu0, belief, nbest, max_nrep, lambda, |
---|
| 17 | % order_k); |
---|
| 18 | [o1,o2,o3]=straux1(L1,diag(D1),20, L0, diag(D0), 10, belief, nbest, nrep, lambda, k); |
---|