function [LogDet,LogRes,L] = sp_lag_lik_test(lam,low,high,val,e0,e1,n)

%SP_LAG_LIK_TEST outputs each term of L
%
%INPUTS: (i)   z = 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));

LogRes = (n/2) * log((1/n)*e'*e);

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