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"...