set.seed(20250411)
rao_spacing_test(rvm(100, mean = 0, kappa = 10))
# San Andreas Fault Data:
data(san_andreas)
data("nuvel1")
PoR <- subset(nuvel1, nuvel1$plate.rot == "na")
sa.por <- PoR_shmax(san_andreas, PoR, "right")
rao_spacing_test(sa.por$azi.PoR, alpha = .05)
Run the code above in your browser using DataLab