# Load data
data("craters")
# Add Cartesian coordinates
craters$X <- cbind(cos(craters$theta) * cos(craters$phi),
sin(craters$theta) * cos(craters$phi),
sin(craters$phi))
# Tests to be performed
type_tests <- c("PCvM", "PAD", "PRt")
# Tests for Venus and Rhea
unif_test(data = craters$X[craters$target == "Venus", ], type = type_tests,
p_value = "asymp")
unif_test(data = craters$X[craters$target == "Rhea", ], type = type_tests,
p_value = "asymp")
Run the code above in your browser using DataLab