# Comp1Dvels: Compare 1D models In RSEIS: Seismic Time Series Analysis Tools

 Comp1Dvels R Documentation

## Compare 1D models

### Description

Plot 1D velocity Models for comparison.

### Usage

``````Comp1Dvels(INV, depth = 1:50)
``````

### Arguments

 `INV` vector of velocity models in memory `depth` depth range for plotting

### Details

takes several velocity models, finds the range of all, makes a plot so that all models fit on figure.

### Value

Graphical Side Effects

### Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

Plot1Dvel, Comp1Dvel, Get1Dvel

### Examples

``````
VEL <- list()
VEL\$'zp' <- c(0,0.25,0.5,0.75,1,2,4,5,10,12)
VEL\$'vp' <- c(1.1,2.15,3.2,4.25,5.3,6.25,6.7,6.9,7,7.2)
VEL\$'ep' <- c(0,0,0,0,0,0,0,0,0,0)
VEL\$'zs' <- c(0,0.25,0.5,0.75,1,2,4,5,10,12)
VEL\$'vs' <- c(0.62,1.21,1.8,2.39,2.98,3.51,3.76,3.88,3.93,4.04)
VEL\$'es' <- c(0,0,0,0,0,0,0,0,0,0)

VELNish <- list()
VELNish\$'zp' <- c(0,0.1,0.6,1.1,21.1)
VELNish\$'vp' <- c(2.8,3.4,4.1,4.7,4.7)
VELNish\$'ep' <- c(0,0,0,0,0)
VELNish\$'zs' <- c(0,0.1,0.6,1.1,21.1)
VELNish\$'vs' <- c(1.6,2,2.4,2.7,2.7)
VELNish\$'es' <- c(0,0,0,0,0)
VELNish\$'name' <- 'Nish'

Comp1Dvels(c("VEL", "VELNish"))

``````

RSEIS documentation built on Aug. 19, 2023, 5:07 p.m.