Faça com um laço for por exemplo

chute <- ...

for(...){

  op <- optim(chute, ...)

  chute <- op$par

}

À disposição.
Walmes.