Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- LogLike <- function(data, copula, w, Tau){
- m <- length(copula)
- LogLike <- lapply(1:m, function(i) sum(Tau[[i]]*(log(w[[i]]) + Log*dcopula(data,copula)))
- LogLike <- sum(Reduce("+", LogLike))
- return(LogLike)
- }
- ll_int <- LogLike(data, copula, w, Tau)
Add Comment
Please, Sign In to add comment