Adds the principal stresses to a stereonet.
stereo_ps(dir, dip)
Arguments
| dir | A vector of dir directions in degrees |
|---|---|
| dip | A vector of dip angles in degrees |
Value
A stereonet plot of principal stresses
Examples
dir <- runif(min = 30, max = 80, n = 20) dip <- runif(min = 10, max = 60, n = 20) stereo_mean(dir, dip)stereo_ps(dir, dip)#> $x #> S1 S2 S3 #> 0.5641209 -0.4487684 0.3396626 #> #> $y #> S1 S2 S3 #> 0.34637122 -0.04068318 -0.81398418 #>
