Code covered by the BSD License  

Highlights from
Greedy Algorithms promoting Group Sparsity V3

from Greedy Algorithms promoting Group Sparsity V3 by Angshul Majumdar
Approximate Greedy Solutions to the problem min||x(k)||_2,0 such that Ax = b

fdrthresh(z,q)
function thresh = fdrthresh(z,q)
    
%
% Copyright (c) 2006. Iddo Drori
%  

%
% Part of SparseLab Version:100
% Created Tuesday March 28, 2006
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail sparselab@stanford.edu
%

az = abs(z);
[sz,iz] = sort(az);
pobs = erfc(sz./sqrt(2));
N = 1:length(z);
pnull =  N' ./length(z);
good = (reverse(pobs) <= (q .* pnull));
if any(good),
    izmax  = iz(1 + length(sz) - max(N(good)));
    thresh = az(izmax);
else
    thresh = max(az) + .01;
end

Contact us at files@mathworks.com