High-dimensional objects data
In cardinalR: Collection of Data Structures

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

library(cardinalR)
library(langevitour)

conic_data <- conic_spiral_3d(n = 300, num_noise = 2,
min_n = -0.05, max_n = 0.05)

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

langevitour(conic_data, pointSize = 2)

dini_data <- dini_surface_3d(n = 300, num_noise = 2,
min_n = -0.05, max_n = 0.05)

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

langevitour(dini_data, pointSize = 2)

roman_data <- roman_surface_3d(n = 300, num_noise = 2,
min_n = -0.05, max_n = 0.05)

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

langevitour(roman_data, pointSize = 2)

spiral_data <- spiral_3d(n = 300, num_dims = 10, num_noise = 2,
min_n = -0.05, max_n = 0.05)

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

langevitour(spiral_data, pointSize = 2)

torus_data <- torus_3d(n = 300, num_noise = 2,
min_n = -0.05, max_n = 0.05)

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

langevitour(torus_data, pointSize = 2)

cube_data <- cube_3d(num_of_effective_dims = 3, num_noise = 2,
min_n = -0.01, max_n = 0.01)

cube_data$n

colnames(cube_data$df) <- paste0("x", 1:NCOL(cube_data$df))

langevitour(cube_data$df, pointSize = 2)