optim_sa function parameters


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.
