SELstaDB | R Documentation |
Pick stations and components interactively. This is a routine used in swig.
SELstaDB(IDB, sel=1, newdev=TRUE, STAY=FALSE)
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. |
vector of index to list of stations and components
Jonathan M. Lees<jonathan.lees@unc.edu>
infoDB, makeDB
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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.