kappa1 = corrcoef12(norminv(u),norminv(v))
%kappa1 = 0.7221
LL1 = NormalCopula_CL(kappa1,[u,v])
% LL1 = -36.7976
RHOHAT = copulafit('Gaussian',[u,v])
%RHOHAT =1.0000 0.7221
% 0.7221 1.0000
x = norminv(u,0,1);
y = norminv(v,0,1);
theta=RhoHat(1,2)
CL = -1*(2*(1-theta^2))^(-1)*(x.^2+y.^2-2*theta*x.*y);
CL = CL + 0.5*(x.^2+y.^2);
CL = sum(CL) - size(x,1)/2*log(1-theta^2);
nll = -CL
% nll = -36.7976
Patton_copula_toolbox
http://econ.duke.edu/~ap172/code.html