# Measurements of the annual flow of the river Nile at Aswan
flow <- datasets::Nile
# Calculate HFD
fractal_dimension <- HFD(flow)$Higuchi
message("Higuchi's fractal dimension: ", round(fractal_dimension, 3))
# Thirty-cycle activation pattern from Santuz & Akay (2020)
data(act_pattern)
fractal_dimension <- HFD(act_pattern$signal)$Higuchi
message("Higuchi's fractal dimension: ", round(fractal_dimension, 3))
Run the code above in your browser using DataLab