# Comp1Dvels: Compare 1D models

### Description

plot 1D velocity Models for comparison

### Usage

 `1` ```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>

Comp1Dvel, Get1Dvel

### Examples

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19``` ```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) VEL\$'name' <- '/data/wadati/lees/Site/Hengil/krafla.vel' 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")) ```

Search within the RSEIS package
Search all R packages, documentation and source code

Questions? Problems? Suggestions? or email at ian@mutexlabs.com.

Please suggest features or report bugs with the GitHub issue tracker.

All documentation is copyright its authors; we didn't write any of that.