function L = sp_lag_lik(lam,low,high,val,e0,e1,n)

%SP_LAG_LIK is the (negative) likelihood function for SP_LAG
%
%INPUTS: (i)   lam = value of lamda
%        (ii)  [low,high] = permissible lamda range
%        (iii) val = eigenvalues 
%        (iv)  [e0,e1] = error vector for concen. lik. func.
%        
%OUTPUT: L = value of likelihood 

e = e0 -lam*e1 ;

LogDet = sum(log(1 - lam*val));

L =  (n/2) * log((1/n)*e'*e) - LogDet;