Rquake (version 2.5-1)

SELstaDB: Pick stations and components interactively

Description

Pick stations and components interactively. This is a routine used in swig.

Usage

SELstaDB(IDB, sel=1, newdev=TRUE, STAY=FALSE)

Value

vector of index to list of stations and components

Arguments

IDB

list with component vectors, usta and ucomp

sel

vector of index to selected traces

newdev

logical, whether to create a new device.

STAY

logical, whether to keep device active.

Author

Jonathan M. Lees<[e-mail]>

See Also

infoDB, makeDB

Examples

if(interactive()){

### make a database from the files on disk
### DBnov = makeDB(fpath, fpat, kind=2, Iendian=1, BIGLONG=FALSE)
### IDB = infoDB(DBnov)
###   or, as an example:
data(GH, package='RSEIS')

DBnov = list(usta = unique(GH$STNS), unique(GH$COMPS))
 

k = SELstaDB(IDB)

}