Mobius data
In cardinalR: Collection of Data Structures

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(cardinalR)
library(langevitour)

mobius_data <- mobius_5d(n = 300, num_noise = 2, 
          min_n = -0.05, max_n = 0.05)

colnames(mobius_data) <- paste0("x", 1:NCOL(mobius_data))

langevitour(mobius_data, pointSize = 2)

mobius_clust_data <- mobius_clust(n = 500, 
num_noise = 2, min_n = -0.05, max_n = 0.05)

colnames(mobius_clust_data) <- paste0("x", 1:NCOL(mobius_clust_data))

langevitour(mobius_clust_data, pointSize = 2)