time_series <- rnorm(1000) # Generate a random time series of 1000 points
embedding_dim <- 3 # Set embedding dimension
time_delay <- 2 # Set time delay (not used in current implementation)
pred_horizon <- 1 # Set prediction horizon
# Check if the first causality point can be considered
is_feasible <- firstCausalityPointCHECK(embedding_dim, time_delay, pred_horizon, time_series)
print(is_feasible)
Run the code above in your browser using DataLab