Triangular data
In cardinalR: Collection of Data Structures

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

library(cardinalR)
library(langevitour)

train_3d_data <- tri_3d(n = 512, num_noise = 2, 
                         min_n = -0.05, max_n = 0.05)

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

langevitour(train_3d_data, pointSize = 2)

train_data <- tri_plane_bkg(n = 675, num_noise = 2, 
                                min_n = -0.05, max_n = 0.05)

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

langevitour(train_data, pointSize = 2)