I am trying to optimize a nested function using nlminb. This throws out an
error that y is missing. Can someone help me with the correct syntax?? Thank
you.
test1 <- function(x,y)
{
sum <- x + y
return(sum)
}
test2 <- function(x,y)
{
sum <- test1(x,y)
sumSq <- sum*sum
return(sumSq)
}
nlminb(start = c(1,1), test2,lower = c(0,0), upper = c(5,5))
--
View this message in context:
http://r.789695.n4.nabble.com/Optimzing-a-nested-function-tp3443825p3443825.html
Sent from the R help mailing list archive at Nabble.com.
P.S.: It is bad taste to call a variable 'sum' because it is a R
function.
Ciao!
mario
On 12-Apr-11 08:33, vioravis wrote:> I am trying to optimize a nested function using nlminb. This throws out an
> error that y is missing. Can someone help me with the correct syntax??
Thank
> you.
>
> test1<- function(x,y)
> {
> sum<- x + y
> return(sum)
> }
>
> test2<- function(x,y)
> {
> sum<- test1(x,y)
> sumSq<- sum*sum
> return(sumSq)
> }
>
> nlminb(start = c(1,1), test2,lower = c(0,0), upper = c(5,5))
>
>
>
> --
> View this message in context:
http://r.789695.n4.nabble.com/Optimzing-a-nested-function-tp3443825p3443825.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> R-help at 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.
--
Ing. Mario Valle
Data Analysis and Visualization Group |
http://www.cscs.ch/~mvalle
Swiss National Supercomputing Centre (CSCS) | Tel: +41 (91) 610.82.60
v. Cantonale Galleria 2, 6928 Manno, Switzerland | Fax: +41 (91) 610.82.82
On 11-04-12 2:33 AM, vioravis wrote:> I am trying to optimize a nested function using nlminb. This throws out an > error that y is missing. Can someone help me with the correct syntax?? Thank > you.See ?nlminb. The parameters to optimize should be given as a vector in a single parameter. Other parameters are kept fixed through the optimization, and need to be passed in the nlminb call. Duncan Murdoch> > test1<- function(x,y) > { > sum<- x + y > return(sum) > } > > test2<- function(x,y) > { > sum<- test1(x,y) > sumSq<- sum*sum > return(sumSq) > } > > nlminb(start = c(1,1), test2,lower = c(0,0), upper = c(5,5)) > > > > -- > View this message in context: http://r.789695.n4.nabble.com/Optimzing-a-nested-function-tp3443825p3443825.html > Sent from the R help mailing list archive at Nabble.com. > > ______________________________________________ > R-help at 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.