Rake of a fault

Angle between fault slip vector and fault strike.

Usage

fault_rake(x)

Arguments

x

fault object

Value

numeric. Angle in degrees

Examples

f <- Fault(c(120, 120, 100), c(60, 60, 50), c(110, 25, 30), c(58, 9, 23), c(1, -1, 1))
fault_rake(f)
#> [1]  84.72020 -10.28562  30.11825