library(rEDM)

data("two_species_model")

ts <- two_species_model$x[1:200]

# univariate time delay embedding using E = 1:10, and Gaussian process regression
x <- tde_gp(ts, stats_only = FALSE)

# univariate simplex projection using E = 1:10, and first half to predict second half
simplex(ts, lib = c(1, 100), pred = c(101, 200))

# univariate s-map using E = 2
s_map(ts, E = 2)

# univariate s-map using E = 2, theta = 1, and full output with smap_coefficients
y <- s_map(ts, E = 2, theta = 1, save_smap_coefficients = TRUE)
