optimr2opm: Add a single optimr() solution to a opm() result set

In optimx: Expanded Replacement and Extension of the 'optim' Function

Add a single optimr() solution to a opm() result set

Description

A function that attempts to add a row to an opm() result matrix. opm() is a multi-method optimization wrapper.

Usage

optimr2opm(ans, opmmat)

Arguments

ans	A result object from the optimr() function for a particular method.
opmmat	the object returned by opm() from trying to solve an optimization problem with multiple solvers

Value

An object in the form of an opm() multiple solver result with either one row if opmobj does not exist, or one new row at the bottom if it does.

Examples

fr <- function(x) {   ## Rosenbrock Banana function
    x1 <- x[1]
    x2 <- x[2]
    100 * (x2 - x1 * x1)^2 + (1 - x1)^2
}
grr <- function(x) { ## Gradient of 'fr'
    x1 <- x[1]
    x2 <- x[2]
    c(-400 * x1 * (x2 - x1 * x1) - 2 * (1 - x1),
       200 *      (x2 - x1 * x1))
}
mset <- c("ncg", "nvm", "anms")
x0<-c(-1.2,1)
mychk <- opm(par=x0, fr, grr, method=mset)
cat("Summary output from opm\n")
print(summary(mychk))
myans<-optimr(x0, fr, grr, method="tnewt")
cat("Add the solution from method 'tnewt'\n")
mychk2<-optimr2opm(myans, mychk)
print(summary(mychk2))

optimx documentation built on April 11, 2025, 5:43 p.m.