Test against the null-hypothesis that the samples are drawn from the same Fisher population.
Examples
set.seed(20250411)
x <- rvmf(100, mu = Line(120, 50), k = 20)
y <- rvmf(100, mu = Line(180, 45), k = 20)
stereoplot()
stereo_point(x, col = 1)
stereo_point(y, col = 2)
fisher_ftest(x, y)
#>
#> Fisher F-test for a common mean direction
#>
#> statistic = 237.14, df = 2, df = 396, p-value < 2.2e-16
#> critical value (95% confidence level) = 3.0185
#> null hypothesis rejected at the 95% confidence level: yes
#> further statistics:
#> Rx Ry R
#> 95.38633 95.35390 179.65004
#> source: Fisher, Lewis & Embleton (1987), sec. 7.2.2
#>
