# Load data
data("wind")
plot(wind, xlab = expression(theta[1]), ylab = expression(theta[2]),
xlim = c(-pi, pi), ylim = c(-pi, pi), axes = FALSE)
sdetorus::torusAxis()
# \donttest{
# Perform TR-PCA
fit <- ridge_pca(x = wind)
show_ridge_pca(fit)# }
Run the code above in your browser using DataLab