search for: ll_1

Displaying 1 result from an estimated 1 matches for "ll_1".

Did you mean: l_1
2017 Aug 06
1
Help with optim function in R, please?
...tau_2 <- par[4]*dCopula(data,copula[[2]],log=F) ??? Tau_1 <- tau_1 / sum(tau_1 + tau_2) ??? Tau_2 <- tau_2 / sum(tau_1 + tau_2) ??? up_pi1 <- sum(Tau_1)/ 100 ??? up_pi2 <- sum(Tau_2) / 100 ??? # Tau <- c(Tau_1, Tau_2) ??? ll <- (-sum(Tau_1*dCopula(data,copula[[1]],log=T))) ??? #ll_1 <- -sum(Tau_2*dCopula(data,copula[[2]],log=T)) ??? ??? ????if (is.finite(ll)) { ? ????return(ll) ??? } else { ????? if (is.na(ll)) { ??????? message(par) ????? } ????? message(ll) ?? ???return(-3^305) ??? } ? } ? ?? ?? ??xy <- optim(par=c(2,0.5,0.2,0.2),fn=optim_1,method="L-BFGS-B&quot...