# Measurements of the annual flow of the river Nile at Aswan
flow <- datasets::Nile
# Calculate Hurst exponent
H <- Hurst(flow)$Hurst
message("Hurst exponent: ", round(H, 3))
# Thirty-cycle activation pattern from Santuz & Akay (2020)
data(act_pattern)
H <- Hurst(act_pattern$signal, min_win = max(act_pattern$time))$Hurst
message("Hurst exponent: ", round(H, 3))
Run the code above in your browser using DataLab