# Load data
data("planets")
# Add normal vectors
planets$normal <- cbind(sin(planets$i) * sin(planets$om),
-sin(planets$i) * cos(planets$om),
cos(planets$i))
# Tests to be performed
type_tests <- c("PCvM", "PAD", "PRt")
# Tests with Pluto
unif_test(data = planets$normal, type = type_tests, p_value = "MC")
# Tests without Pluto
unif_test(data = planets$normal[-9, ], type = type_tests, p_value = "MC")
Run the code above in your browser using DataLab