set.seed(17711L)

smoo <- tf_rgp(10, nugget = 0)
rough <- tf_rgp(10, arg = 121L, nugget = 0.2, scale = 0.005)
narrow <- tf_jiggle(tf_rgp(10, arg = 11L, nugget = 0))
irr <- tf_sparsify(tf_jiggle(smoo))
sparse <- tf_sparsify(smoo)

smoo_list <- tf_evaluations(smoo)
smoo_matrix <- as.matrix(smoo)
smoo_df <- as.data.frame(smoo, unnest = TRUE)

irr_list <- tf_evaluations(irr)
irr_matrix <- suppressWarnings(as.matrix(irr))
irr_df <- as.data.frame(irr, unnest = TRUE)
narrow_df <- as.data.frame(narrow, unnest = TRUE)

# vector-valued (f: R -> R^d) fixtures: 2-d "movement" trajectories
traj_mv <- tfd_mv(list(x = tf_rgp(10), y = tf_rgp(10)))
traj_mv_irr <- tfd_mv(list(
  x = tf_sparsify(tf_rgp(10)),
  y = tf_sparsify(tf_rgp(10))
))
traj_mvb <- tfb_mv(traj_mv, verbose = FALSE)
