Re: [R] How to fix error in the package 'rgenoud'

2010-10-17 Thread Wonsang You
I could solve this problem by setting the boundary options as follows.

par1Bnd-c(0.001,0.999)
par2Bnd-c(-10,10)
DomainMat-matrix(c(par1Bnd,par2Bnd), nrow = 2, ncol=2, byrow=TRUE)
result-genoud(Qmin, nvars=2, starting.values=c(0.5,0),
Domains=DomainMat, control=list(ndeps=c(1e-7,1e-2)), boundary.enforcement=2)

To understand how to set up each option, you can refer to the links:
http://sekhon.berkeley.edu/rgenoud/genoud.html
http://sekhon.berkeley.edu/rgenoud/

In the above setting, Domains decides the boundary, and starting.values
indicates the initial values of parameters. control is the list of control
parameters in optim (For details, refer to
http://sekhon.berkeley.edu/stats/html/optim.html). boundary.enforcement
prevents the algorithm from going away from the boundary.


On 13 October 2010 15:01, Wonsang You [via R] 
ml-node+2993619-1186574920-137...@n4.nabble.comml-node%2b2993619-1186574920-137...@n4.nabble.com
 wrote:

 I have to make correction in my error message which I introduced in my
 original message. Sorry for my mistake.
 Finally, I had the following error message after running the function
 'genoud'.

 Error in optim(foo.vals, fn = fn1, gr = gr1, method = optim.method, control
 = control) :
   non-finite finite-difference value [1]

 When I execute 'traceback()' to trace where the error occured, I got the
 following results. Unfortunately, I could not figure out what was the
 problem from the above information.

 6: optim(foo.vals, fn = fn1, gr = gr1, method = optim.method, control =
 control)
 5: function (foo.vals)
{
ret - optim(foo.vals, fn = fn1, gr = gr1, method = optim.method,
control = control)
return(c(ret$value, ret$par))
}(c(0.220878697173384, -13.3643173824871))
 4: .Call(rgenoud, as.function(fn1), new.env(), as.integer(nvars),
as.integer(pop.size), as.integer(max.generations),
 as.integer(wait.generations),
as.integer(nStartingValues), as.real(starting.values), as.vector(P),

as.matrix(Domains), as.integer(max), as.integer(gradient.check),
as.integer(boundary.enforcement), as.double(solution.tolerance),
as.integer(BFGS), as.integer(data.type.int),
 as.integer(provide.seeds),
as.integer(unif.seed), as.integer(int.seed),
 as.integer(print.level),
as.integer(share.type), as.integer(instance.number),
 as.integer(MemoryMatrix),
as.integer(debug), as.character(output.path),
 as.integer(output.type),
as.character(project.path), as.integer(hard.generation.limit),
as.function(genoud.optim.wrapper101), as.integer(lexical),
as.function(fnLexicalSort), as.function(fnMemoryMatrixEvaluate),
as.integer(UserGradient), as.function(gr1func), as.real(P9mix),
as.integer(BFGSburnin), as.integer(transform), PACKAGE = rgenoud)
 3: genoud(Qmin, nvars = 2, starting.values = InitVal, max.generations = 10,

wait.generations = 3, n = n, yper = yper, pertype = pertype) at
 wFGN.R#75
 Wonsang You
 Leibniz Institute for Neurobiology


 --
  View message @
 http://r.789695.n4.nabble.com/How-to-fix-error-in-the-package-rgenoud-tp2993489p2993619.html
 To unsubscribe from How to fix error in the package 'rgenoud', click 
 herehttp://r.789695.n4.nabble.com/template/TplServlet.jtp?tpl=unsubscribe_by_codenode=2993489code=eW91QGlmbi1tYWdkZWJ1cmcuZGV8Mjk5MzQ4OXwxODQ5NDg1ODM2.




[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


[R] How to fix error in the package 'rgenoud'

2010-10-13 Thread Wonsang You

Dear R user fellows,

I would like to ask you about the package 'rgenoud' which is a genetic
optimization tool.
I ran the function 'genoud' with two variables to be minimized by the
following command.

result-genoud(fn,nvars=2,starting.values=c(0.5,0),

 pop.size=1000, max.generations=10, wait.generations=3)


Then, I had the following error message.

 Error in solve.default(Djl) :

system is computationally singular: reciprocal condition number = 0


Can anyone give me some tip on how to fix the problem? Thank you for your
great help in advance.

Best Regards,
Wonsang You


-
--
Wonsang You
Special Lab Non-Invasive Brain Imaging
Leibniz Institute for Neurobiology
http://www.ifn-magdeburg.de
-- 
View this message in context: 
http://r.789695.n4.nabble.com/How-to-fix-error-in-the-package-rgenoud-tp2993489p2993489.html
Sent from the R help mailing list archive at Nabble.com.

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] How to fix error in the package 'rgenoud'

2010-10-13 Thread Wonsang You

I have to make correction in my error message which I introduced in my
original message. Sorry for my mistake.
Finally, I had the following error message after running the function '
genoud'.

Error in optim(foo.vals, fn = fn1, gr = gr1, method = optim.method, control
= control) :
  non-finite finite-difference value [1]

When I execute 'traceback()' to trace where the error occured, I got the
following results. Unfortunately, I could not figure out what was the
problem from the above information.

6: optim(foo.vals, fn = fn1, gr = gr1, method = optim.method, control =
control)
5: function (foo.vals)
   {
   ret - optim(foo.vals, fn = fn1, gr = gr1, method = optim.method,
   control = control)
   return(c(ret$value, ret$par))
   }(c(0.220878697173384, -13.3643173824871))
4: .Call(rgenoud, as.function(fn1), new.env(), as.integer(nvars),
   as.integer(pop.size), as.integer(max.generations),
as.integer(wait.generations),
   as.integer(nStartingValues), as.real(starting.values), as.vector(P),
   as.matrix(Domains), as.integer(max), as.integer(gradient.check),
   as.integer(boundary.enforcement), as.double(solution.tolerance),
   as.integer(BFGS), as.integer(data.type.int),
as.integer(provide.seeds),
   as.integer(unif.seed), as.integer(int.seed),
as.integer(print.level),
   as.integer(share.type), as.integer(instance.number),
as.integer(MemoryMatrix),
   as.integer(debug), as.character(output.path),
as.integer(output.type),
   as.character(project.path), as.integer(hard.generation.limit),
   as.function(genoud.optim.wrapper101), as.integer(lexical),
   as.function(fnLexicalSort), as.function(fnMemoryMatrixEvaluate),
   as.integer(UserGradient), as.function(gr1func), as.real(P9mix),
   as.integer(BFGSburnin), as.integer(transform), PACKAGE = rgenoud)
3: genoud(Qmin, nvars = 2, starting.values = InitVal, max.generations = 10,
   wait.generations = 3, n = n, yper = yper, pertype = pertype) at
wFGN.R#75


On 13 October 2010 13:03, Wonsang You y...@ifn-magdeburg.de wrote:

 Dear R user fellows,

 I would like to ask you about the package 'rgenoud' which is a genetic
 optimization tool.
 I ran the function 'genoud' with two variables to be minimized by the
 following command.

 result-genoud(fn,nvars=2,starting.values=c(0.5,0),

  pop.size=1000, max.generations=10, wait.generations=3)


 Then, I had the following error message.

  Error in solve.default(Djl) :

 system is computationally singular: reciprocal condition number = 0


 Can anyone give me some tip on how to fix the problem? Thank you for your
 great help in advance.

 Best Regards,
 Wonsang You



-
Wonsang You
Leibniz Institute for Neurobiology
-- 
View this message in context: 
http://r.789695.n4.nabble.com/Re-How-to-fix-error-in-the-package-rgenoud-tp2993614p2993614.html
Sent from the R help mailing list archive at Nabble.com.

[[alternative HTML version deleted]]

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.


Re: [R] How to fix error in the package 'rgenoud'

2010-10-13 Thread Wonsang You

I have to make correction in my error message which I introduced in my
original message. Sorry for my mistake. 
Finally, I had the following error message after running the function
'genoud'.

Error in optim(foo.vals, fn = fn1, gr = gr1, method = optim.method, control
= control) : 
  non-finite finite-difference value [1]

When I execute 'traceback()' to trace where the error occured, I got the
following results. Unfortunately, I could not figure out what was the
problem from the above information.

6: optim(foo.vals, fn = fn1, gr = gr1, method = optim.method, control =
control)
5: function (foo.vals) 
   {
   ret - optim(foo.vals, fn = fn1, gr = gr1, method = optim.method, 
   control = control)
   return(c(ret$value, ret$par))
   }(c(0.220878697173384, -13.3643173824871))
4: .Call(rgenoud, as.function(fn1), new.env(), as.integer(nvars), 
   as.integer(pop.size), as.integer(max.generations),
as.integer(wait.generations), 
   as.integer(nStartingValues), as.real(starting.values), as.vector(P), 
   as.matrix(Domains), as.integer(max), as.integer(gradient.check), 
   as.integer(boundary.enforcement), as.double(solution.tolerance), 
   as.integer(BFGS), as.integer(data.type.int),
as.integer(provide.seeds), 
   as.integer(unif.seed), as.integer(int.seed), as.integer(print.level), 
   as.integer(share.type), as.integer(instance.number),
as.integer(MemoryMatrix), 
   as.integer(debug), as.character(output.path),
as.integer(output.type), 
   as.character(project.path), as.integer(hard.generation.limit), 
   as.function(genoud.optim.wrapper101), as.integer(lexical), 
   as.function(fnLexicalSort), as.function(fnMemoryMatrixEvaluate), 
   as.integer(UserGradient), as.function(gr1func), as.real(P9mix), 
   as.integer(BFGSburnin), as.integer(transform), PACKAGE = rgenoud)
3: genoud(Qmin, nvars = 2, starting.values = InitVal, max.generations = 10, 
   wait.generations = 3, n = n, yper = yper, pertype = pertype) at
wFGN.R#75

-
Wonsang You
Leibniz Institute for Neurobiology
-- 
View this message in context: 
http://r.789695.n4.nabble.com/How-to-fix-error-in-the-package-rgenoud-tp2993489p2993619.html
Sent from the R help mailing list archive at Nabble.com.

__
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.