# Load data
data("rhea")
# Add Cartesian coordinates
rhea$X <- cbind(cos(rhea$theta) * cos(rhea$phi),
sin(rhea$theta) * cos(rhea$phi),
sin(rhea$phi))
# Tests
unif_test(data = rhea$X[rhea$diam > 15 & rhea$diam < 20, ],
type = c("PCvM", "PAD", "PRt"), p_value = "asymp")
Run the code above in your browser using DataLab