[R] Optimzing a nested function

[vioravis]

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.