# \donttest{
# Toy example
data <- data.frame(
time = 1:50,
Z = sin(seq(0, 10, length.out = 50)),
X = cos(seq(0, 10, length.out = 50))
)
data$dZ <- c(diff(data$Z)/diff(data$time), NA)
data <- na.omit(data)
result <- explore_dynamics(data,
target = "dZ",
predictors = c("Z", "X")
)
print(result$suggestions)
# }
Run the code above in your browser using DataLab