# NOT RUN {
set.seed(42)
trj <- TrajGenerate()
muL <- mean(TrajStepLengths(trj))
stepSizes <- TrajLogSequence(0.5 * muL, 5 * muL, 20)
plot(TrajFractalDimensionValues(trj, stepSizes), log = "xy", pch = 16, cex = .5)
# }
Run the code above in your browser using DataLab