SELstaDB {Rquake}

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)

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.

Value

vector of index to list of stations and components

Author(s)

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)

}