# \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 cluster 1 to 4
plot_fire_mov(result, cluster = 1:4)
# Plot cluster 1 to 4, set step = 6
plot_fire_mov(result, cluster = 1:4, step = 6)
# }
Run the code above in your browser using DataLab