% Compute the uncorrected covariance coefficient between the spike trains
% p1 and p2 by taking the integral of the crosscorrelation function
% over a window of radius tau without correcting.
% For large tau, this number will typically be closer to the actual
% covariance coefficient than what cov_coeff returns
% c=u_cov_coeff(p1,p2,tau,dt)
% dt is the binsize
% NOTE: p1 and p2 should be the same length


function c=u_cov_coeff(p1,p2,tau,dt)


% Calculate the correlation function
[cc12,x]=cross_corr(p1,p2,tau,dt);

% Integrate the correlation function
% multiplying by the correctino term
c=sum(cc12)*dt;