edesign (version 1.0-10)

monet.selected: extract the selected station indices from a monet object

Description

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).

Usage

monet.selected(x)
monet.solution(x)

Arguments

x

object of class monet

Value

• integer vector

See Also

monet

Examples

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)