Displaying 1 result from an estimated 1 matches for "scvm".
Did you mean:
scm
2020 Oct 28
2
R optim() function
...= list(trace = as.numeric(verbose)))
Within the optim function, there is a call to an external C function:
.External2(C_optim, par, fn1, gr1, method, con, lower, upper)
Where
Par = (0.339, 0.339),
fn1 = function (diagH)
{
H <- diag(diagH) %*% diag(diagH)
if (default.bflag(d = d, n = n))
scvm <- scv.mat(x.star, H, Gs, binned = binned, verbose = FALSE,
bin.par = bin.par.star, deriv.order = r)
else scvm <- scv.mat(x.star, H, Gs, binned = binned, verbose = FALSE,
deriv.order = r)
return(scvm)
},
gr1 is Null,
method = "Nelder-Mead"
con is a list of 18 items (tr...