Description Usage Arguments Value Author(s) See Also Examples
This function can be used to get an index vector containing the
additionally selected (monet.selected
) rows/columns of a covariance matrix used in
"greedy"
, "dual greedy"
, "interchange"
or
"maxentropy"
(or the complete network, monet.solution
).
1 2 | monet.selected(x)
monet.solution(x)
|
x |
object of class |
integer vector
C. Gebhardt
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | x <- c(0.97900601,0.82658702,0.53105628,0.91420190,0.35304969,
0.14768239,0.58000004,0.60690101,0.36289026,0.82022147,
0.95290664,0.07928365,0.04833764,0.55631735,0.06427738,
0.31216689,0.43851418,0.34433556,0.77699357,0.84097327)
y <- c(0.36545512,0.72144122,0.95688671,0.25422154,0.48199229,
0.43874199,0.90166634,0.60898628,0.82634713,0.29670695,
0.86879093,0.45277452,0.09386800,0.04788365,0.20557817,
0.61149264,0.94643855,0.78219937,0.53946353,0.70946842)
A <- outer(x, x, "-")^2 + outer(y, y, "-")^2
A <- (2 - A)/10
diag(A) <- 0
diag(A) <- 1/20 + apply(A, 2, sum)
MN <- greedy(A,5,5)
# internal representaion in monet object:
MN$S
# reusable index, only added stations:
monet.selected(MN)
# ... complete network:
monet.solution(MN)
|
[1] 0 0 8 9 0 0 0 0 0 0 16 0 18 19 0
[1] 8 9 16 18 19
[1] 1 2 3 4 5 8 9 16 18 19
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.