1 | ancCR(x1, y1, x2, y2)
|
x1 |
|
y1 |
|
x2 |
|
y2 |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (x1, y1, x2, y2)
{
v = optim(0, JNH_sub1, x1 = x1, y1 = y1, x2 = x2, y2 = y2,
method = "BFGS")$par
v[2] = optim(0, JNH_sub2, x1 = x1, y1 = y1, x2 = x2, y2 = y2,
method = "BFGS")$par
a = min(v)
v = c(a, max(v))
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.