data("san_andreas")
circular_mean_difference(san_andreas$azi)
circular_mean_difference(san_andreas$azi, weighting(san_andreas$unc))
circular_mean_difference_alt(san_andreas$azi)
circular_mean_difference_alt(san_andreas$azi, weighting(san_andreas$unc))
Run the code above in your browser using DataLab