Test of mean orientations

Test against the null-hypothesis that the samples are drawn from the same Fisher population.

Usage

fisher_ftest(x, y, alpha = 0.05)

Arguments

x, y

Can be three element vectors, three column arrays, or objects of class "line" or "plane"

alpha

Significance level

Value

list indicating the F-statistic and the p-value.

Examples

set.seed(1234)
x <- rvmf(100, mu = Line(120, 50), k = 20)
y <- rvmf(100, mu = Line(180, 45), k = 20)

ggstereo() +
  ggplot2::geom_point(data = gg(x), ggplot2::aes(x, y, color = "x")) +
  ggplot2::geom_point(data = gg(y), ggplot2::aes(x, y, color = "y"))


fisher_ftest(x, y)
#> Reject null-hypothesis
#>    F stat   p-value 
#> 191.64446   3.01851