# NOT RUN {
vec.x <- gen.logistic(mu = 3.55, iter = 2000)
#Kc for each value of c
res2 <- testChaos01(vec.x, out = TRUE)
results <- getVal(res2, vars = "both")
print(head(results))
#Get results of 0-1 test for Chaos when out = TRUE
K <- median(getVal(res2, vars = "Kc"))
# }
Run the code above in your browser using DataLab