# NOT RUN {
TS <- gen.logistic(mu = 3.55, iter = 2000)
# The median of Kc
res <- testChaos01(TS)
print(res)
# Output for each value of c
res2 <- testChaos01(TS, out = TRUE)
summary(res2[[1]])
head(res2[[1]]$pc)
print(res2[[1]]$Kc)
class(res2)
class(res2[[1]])
# }
# NOT RUN {
# Introducing noise
TS2 <- TS + runif(2000, 0, 0.1)
res.orig <- testChaos01(TS2, alpha = 0)
res.damp <- testChaos01(TS2, alpha = 2.5)
sprintf(Original test result %s\n Dampened test result %s, res.orig, res.damp)
# Parallel
res <- testChaos01(TS, par = "parallel", num.treads = 2)
# Parallel cluster, remember to initialize and finalize the MPI
# Needs to be run inside a script and run from a command line interface (CLI)
# e.g. mpirun Rscript test_chaos01_mpi.R
pbdMPI::init()
res <- testChaos01(TS, par = "MPI", num.treads = 2)
pbdMPI::finalize()
# Different interval for generating c
res <- testChaos01(TS, c.int = c(0, pi))
# }
Run the code above in your browser using DataLab