# Perform a two-sample test of homogeneity on two
# simulated data sets.
data1 <- rvonmises(n=20, mu=0, kappa=3)
data2 <- rvonmises(n=20, mu=pi, kappa=2)
watson.two.test(data1, data2, alpha=0.05)
watson.two.test(data1, data2)
Run the code above in your browser using DataLab