Nothing
icmaLogCon <- function(x, xgrid = NULL, eps = 10^-8, T1 = 2000, robustif = TRUE, print = FALSE) {
xn <- sort(x)
tmp <- preProcess(x)
x <- tmp$x
w <- tmp$w
sig <- tmp$sig
n <- length(x)
if (n == 2) {
stop("For n = 2 use function logConDens()")
}
dx <- c(0, diff(x))
iter1 <- 0
dirder <- 2 * eps
phi <- LocalNormalize(x, 1:n * 0)
phi <- LocalMLE(x, w, c(1, rep(0, n - 2), 1), phi, eps)$phi
eta <- phieta(x, phi)
loglik <- Lhat_eta(x, w, eta)$ll
etanew <- 1:n * 0
while ((abs(dirder) > eps) && (iter1 < T1)) {
iter1 <- iter1 + 1
derivs <- quadDeriv(dx, w, eta)
grad <- derivs[, 1]
hess <- -derivs[, 2]
y <- eta + grad / hess
etanew[1] <- y[1]
etanew[2:n] <- -isoMean(-y[2:n], hess[2:n])
if (robustif == TRUE) {
etanew <- robust(x, w, eta, etanew, grad)
}
dirder <- as.numeric(t(grad) %*% (etanew - eta))
eta <- etanew
loglik <- Lhat_eta(x, w, eta)$ll
out <- data.frame(Iteration = iter1, LogLikelihood = loglik, dirder = dirder)
if (print == TRUE) {
print(out)
}
}
return(list(x = x, w = w, f = as.vector(exp(etaphi(x, eta))), xn = xn, Loglik = loglik, Iterations = iter1, sig = sig))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.