optim_sa function parameters

[iwelch]

hi --- would be nice to be able to pass parameters to the function to be optimized.

f <- function(x,p) {
    sum( (x-p)^2 )
}

the equivalent optim in base R recognizes '...' for this purpose.