Extract результаты функции

Question

я следующая функция, которая должна быть сведена к минимуму:

calloptim <- function(under,strike, rf, ttoe,par) {(-(under*par[1] 
    -strike*exp(-rf*ttoe)*par[2]))^2} 

Я создаю следующий объект:

res<- nlminb(c(1,1), calloptim, under= 90, strike = 100, rf =0.05, ttoe=3) 

res 

$par 
[1] 0.9771973 1.0218072 

$objective 
[1] 3.412923e-16 

$convergence 
[1] 1 

$iterations 
[1] 2 

$evaluations 
function gradient 
     34  4 

$message 
[1] "false convergence (8)" 

Это хорошо, но теперь я хочу, чтобы захватить в $ par оценивают значения и помещают их в вектор, поэтому я могу использовать их для других вычислений.

Как вы изолируете и сохраняете только части результата объекта?

Answer 1

Ниже приведены все примерно эквивалентны:

res$par 
res["par"] 
res[1] 
res[[1]] 

Посмотрите на странице справки ?Extract для деталей. Я часто нахожу поиск полезного объекта str(), когда вы пытаетесь найти, где взять вещи, например, либо имя объекта для извлечения, либо его числовое местоположение внутри объекта, на который вы смотрите (в этом случае 1).

Answer 2

Потяните $par элемент из res с newVals <- res$par

Answer 3

Не знаю, если это точно отвечает на то, что вы просите, но:

vector <- res$par 
> vector 
[1] 0.9771973 1.0218072 
> vector[1] 
[1] 0.9771973 

Там может быть акцесора, что более «правильный «.

Answer 4

Если это расширение вашего previous question, вы можете извлечь эти вложенные ответы с:

out <- apply(f, 1, nlminb, objective=calloptim, under=90, strike=100, rf=0.05, ttoe=3) 
out.par <- lapply(out, '[',1) 
unlist(out.par, recursive=FALSE)