# \donttest{
# Time consuming functions (>5 seconds)
# Get clustering results
result <- hotspot_cluster(hotspots,
lon = "lon",
lat = "lat",
obsTime = "obsTime",
activeTime = 24,
adjDist = 3000,
minPts = 4,
minTime = 3,
ignitionCenter = "mean",
timeUnit = "h",
timeStep = 1)
# Plot timeline
plot_timeline(result,
mainBreak = "1 week",
minorBreak = "1 day",
dateLabel = "%b %d")
# }
Run the code above in your browser using DataLab