https://i.imgur.com/VhC8cug.png

カブトガニでもやってみた

> optim(c(1,0.5),kab, method = 'Nelder-Mead')
$`par`
[1] 1.0614192 0.7726595

$value
[1] 3.891157

$counts
function gradient
57 NA

$convergence
[1] 0

$message
NULL