ml1factor function

max likelihood (min negative log-likelihood) for 1-factor copula model