rotate.RdRotate a numeric vector (for rotation_test, this will be a set of event times). "Rotating" the vector entails advancing all values by a random increment, then subtracting
the maximum expected value from all rotated entries that exceed that maximum.
This is a utility function used by rotation_test, but advanced users may wish to use it directly to carry out non-standard rotation tests.
rotate(event_times, full_period)
| event_times | A vector of the times of events. Times can be given in any format. If |
|---|---|
| full_period | A length two vector giving the start and end times of the full period during which events in event_times might have occurred. If missing, default is range( |
A vector of numeric values the same length as event_times generated by rotating the event times by a random amount
The rotation test was applied in Miller et al. 2004 and detailed in DeRuiter and Solow 2008. This test is a variation on standard randomization or permutation tests that is appropriate for time-series of non-independent events (for example, time series of behavioral events that tend to occur in clusters). This implementation of the rotation test compares a test statistic (some summary of an "experimental" time-period) to its expected value during non-experimental periods. Instead of resampling random subsets of observations from the original dataset, the rotation test samples many contiguous blocks from the original data, each the same duration as the experimental period. The summary statistic, computed for these "rotated" samples, provides a distribution to which the test statistic from the data can be compared.
my_events <- 1500 * stats::runif(10) # 10 events at "times" between 0 and 1500 my_events rotated_events <- rotate(my_events, full_period = c(0, 1500)) rotated_events