|
Revision 578, 0.6 kB
(checked in by smidl, 15 years ago)
|
|
correct test case for #12
|
| Line | |
|---|
| 1 | % sript for testing structure estimating function |
|---|
| 2 | |
|---|
| 3 | A=rand(2); |
|---|
| 4 | [L0,D0]=ldform(A); |
|---|
| 5 | B=rand(2); |
|---|
| 6 | [L1,D1]=ldform(A+B); |
|---|
| 7 | |
|---|
| 8 | % structure estimation - copied form facstr |
|---|
| 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 |
|---|
| 12 | lambda = 0.9; |
|---|
| 13 | k=2; |
|---|
| 14 | |
|---|
| 15 | % [strout, rgrsout, statistics] = |
|---|
| 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); |
|---|
