Description Usage Arguments Details Value S3 METHODS References See Also Examples

Infers the existence of deterministic structure in a given time series. If fractal strucutre exists, this function is useful in helping the user decide whether a deterministic chaotic model or stochastic fractal time series model is appropriate for their data.

1 2 3 4 5 |

`x` |
a numeric vector or matrix containing uniformly-sampled real-valued time series. |

`attach.summary` |
a logical flag. If |

`dimension` |
an integer defining the maximum embedding dimension to use
in analyzing the data. Default: |

`method` |
a character string representing the method to be used to generate surrogate data. Choices are: `"aaft"` Theiler's Amplitude Adjusted Fourier Transform. `"phase"` Theiler's phase randomization. `"ce"` Davies and Harte's Circulant Embedding. `"dh"` Davison and Hinkley's phase and amplitude randomization.
Default: |

`n.realization` |
an integer denoting the number of surrogate realizations to create
and analyze for comparison to the ensmeble of E-statistics. Default: |

`olag` |
the number of points along the trajectory of the
current point that must be exceeded in order for
another point in the phase space to be considered
a neighbor candidate. This argument is used
to help attenuate temporal correlation in the
the embedding which can lead to spuriously low
correlation dimension estimates. The orbital lag
must be positive or zero. Default: |

`resolution` |
a numeric value representing the spacing between scales (Euclidean bin size).
Default: |

`scale.max` |
a numeric value defining the maximum scale over which the results should
be returned. Default: |

`scale.min` |
a numeric value defining the minimum scale over which the results should
be returned. Default: |

`seed` |
a positive integer representing the initial seed value for generating
surrogate realizations of the original input time series. These surrogates are used
to collect an ensemble of determinism statistics (see DETAILS section for more information).
If the specified |

`tlag` |
the time delay between coordinates. Default: the decorrelation time of the autocorrelation function. |

This function calculates the so-called delta-epsilon test for detecting deterministic structure in a time series by exploiting (possible) continuity of orbits comprising a phase space topology created by a time-delayed embedding of the original time series. This phase space continuity is non-existent for stochastic white noise processes. The delta-epsilon test works by

- 1
an ensemble of randomized realizations of the original time series, i.e., surrogate data is created.

- 2
an appropriate phase space statistic (called the E-statistic) is calculated for both the time-delayed embedding of the original time series and the ensemble of surrogates.

- 3
a comparison of the E-statistic for the original series and the ensemble of surrogate data is made. If there is a separation of the original E-statistic from that of the ensemble, it implies the existence of deterministic structure in the original time series. Conversely, an overlap of E-statstics implies that the original series cannot be discriminated from the ensemble of randomized surrogates and thus it is inferred that the original series is a realization of a random process.

The discriminating E-statistic is calculated as follows: Define

*delta(j,k) = |z(j) - z(k)|*

*epsilon(j,k) = |z(j + kappa) - z(k + kappa)|*

*e(r) = mean(epsilon(j,k)) over scales r <= delta(j,k) < r + dr*

where *delta(j,k)* is the Euclidean distance (using an infinity-norm metric) between
phase space points *z(j)* and *z(k)*, and *epsilon(j,k)*
is the corresponding separation distance between the points at a times *kappa* points
in the future along their respective orbits. These future points are referred to as *images*
of the original pair. The variable *kappa* is referred to as the orbital lag.
The increment *dr* is the width of a specificed
Euclidean bin size. Given *dr*, the distance
*delta(j,k)* is used solely
to identify the proper bin in which to store the image distance *epsilon(j,k)*.
The average of each bin forms the *e(r)* statistic. Finally, the E-statistic is formed
by calculating a cumulative summation over the the *e(r)* statistic, i.e.,

*E(r) = cumsum(e(r))*

If there exists a distinct separation of the E-statstics for the original time series and
the ensemble of surrogate data, it implies that the signal
is deterministic.
The orbital lag *kappa* should be chosen large enough to sufficiently
decorrelate the points evaluated along a given orbit.

an object of class `determinism`

.

- eda.plot
plots a barplot of the determinism level (expressed as a percentage on [0,100]) based on the fraction of overlap between the E-statistics for the original series and that of the ensmeble of surrogates. The amount of non-overlap is calculated relative to both the first quartile and extreme values of the E-statistics for the surrogate ensemble.

- plot
plots the E-statistics at small scales of the original series overlaid with those of the ensmeble of surrogates (illustrated using boxplots over a subsampled set of the surrogate E-statistics).

print a sumamry of the analysis.

- summary
produces a summary of the E-statistics for use in the

`print`

, and`plot`

, and`eda.plot`

methods.

Kaplan, D. (1994),
*Exceptional Events as Evidence for Determinism*,
Physica D, **73**, 38–48.

`embedSeries`

, `timeLag`

, `spaceTime`

, `surrogate`

.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | ```
## Not run:
## perform a determinism test for the beamchaos
## series. in order to do so, it is vitally
## important to provide the proper orbital lag,
## which can be estimated as the lag value
## associated with the first common maxima over
## all contours in a spaceTime plot.
plot(spaceTime(beamchaos))
## we esimate an appropriate olag of 30, and
## subsequently perform the deterrminism test
beam.det <- determinism(beamchaos, olag=30)
print(beam.det)
plot(beam.det)
eda.plot(beam.det)
## perform a similar analysis for a Gaussian white
## noise realization
rnorm.det <- determinism(rnorm(1024),olag=1)
print(rnorm.det)
plot(rnorm.det)
eda.plot(rnorm.det)
## End(Not run)
``` |

```
Loading required package: splus2R
Loading required package: ifultools
Determinism test for beamchaos series
-------------------------------------
Number of surrogate realizations : 10
Surrogate method : Circulant Embedding
Embedding dimension(s) : 1 2 3 4 5 6
Length of series : 2048
Time lag : 12
Orbital lag : 30
Scale range : 0 to 35.616
Scale resolution : 0.01454034
Determinism Level Percentages
(E-statistic Ensemble vs. Embedding Dimension):
[,1] [,2] [,3] [,4] [,5] [,6]
quartile 100 100 100 100 100 100
extreme 100 100 100 100 100 100
Determinism test for rnorm(1024) series
---------------------------------------
Number of surrogate realizations : 10
Surrogate method : Circulant Embedding
Embedding dimension(s) : 1 2 3 4 5 6
Length of series : 1024
Time lag : 2
Orbital lag : 1
Scale range : 0 to 15.744
Scale resolution : 0.006427493
Determinism Level Percentages
(E-statistic Ensemble vs. Embedding Dimension):
[,1] [,2] [,3] [,4] [,5] [,6]
quartile 100 100 100 100 100 100
extreme 100 100 100 100 100 100
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.